ник: joka
вот нашел примерчик:)
Dim con As ADODB.Connection
Dim rst As ADODB.Recordset
Set con = New ADODB.Connection
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=диск:\Путь\база.mdb"
Set rst = New ADODB.Recordset
rst.Open "SElect * from tbl_dogovora", con
Do While Not rst.EOF
Debug.Print rst.Fields("Поле").Value
rst.MoveNext
Loop
rst.Close
con.Close
вот так вот проблемка "Data Source=диск:\Путь\база.mdb" а я не знаю какой файл надо указать если БД в MySQl...