ник: osmor
как вариант (нужна ссылка на ADODB)
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open "SElect * from tbl_dogovora", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=диск:\Путь\база.mdb"
Do While Not rst.EOF
Debug.Print rst.Fields("ИмяПоля").Value
rst.MoveNext
Loop
rst.Close
|
это если только один запрос надо или можно открыть Connection
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
|