Макрос для работы с DBf

[pfantom]

Здравствуйте. Недавно начал только изучать написание макросов. Задача простая. Есть Dbf фаил в нем есть четыре колонки: Number, STR, NAME, IND.
Подскажите как реализовать. Делается запрос к БД по столбцу Number(все записи уникальные). Если он равен определенному значению то значения остальных колонок помещается в переменную или переменные не важно.

вот примерный код но при выполнение оператора Execute вылетает ошибка

Код Выделить Развернуть

Sub dbf_Example()

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Const cstrBase As String = "C:\1"

Set cn = New ADODB.Connection
With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & cstrBase & ";Extended Properties=dBase IV"
    .Open
     rs = .Execute("SELECT * FROM Adr  WHERE Number = '123'; ")

    .Close
End With
End Sub


подскажите как до делать=(((

хотя были и другие варианты кода но тоже не работало.