Проблема с загрузкой dbf в макрос

[R@v14]

2 DOOBER
*********
Пасиб за макрос, пошел тестить....
О результате отпишусь!

[R@v14]

TO DOOBER
*********
Затестил макрос, спасибо, работает. Но работает с тем дбф файлом, что лежит в архиве. Я попробовал заточить макрос под свой дбф, на что экселька ругнулась вот так: "Run-time error '-2147217913 (80040e07)': [Microsoft][Драйвер ODBC dBase] Несоответствие типов данных в выражении условия отбора" ((((((((((((((((((((((
Я так понимаю это от того, что типы данных в моей дбф отличаются от типов данных в твоей? ((( Тогда как подогнать условия макроса под мой дбф-ник?
В качестве примера вложил свой дбф файл. Ключевые поля в нем: Mfo и Nai, остальные поля выводиться не должны в макрос. Mfo- это бик, по которому происходит поис банка, а Nai- это наименование банка, которое должно выводиться на лист эксель.

[doober]

Не тем камнем точили.

Private Sub CommandButton1_Click()
Dim sCon As String, sSql As String
If TextBox1.Text = "" Or IsNumeric(TextBox1.Text) = False Then Exit Sub

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
  Sheets(1).Range("B1:C14").ClearContents
 Path = ThisWorkbook.Path & "\"

 sSql = "SELECT FIL.MFO, FIL.NAI" & Chr(10) & Chr(13) & _
"FROM FIL" & Chr(10) & Chr(13) & _
"WHERE (((FIL.MFO)=" & TextBox1.Text & "));"
         
   sCon = "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=" & Path & ";"
     cn.Open sCon
    If Not cn.State = 1 Then Exit Sub
    Debug.Print sSql
    rs.Open sSql, cn, adOpenStatic, adLockReadOnly
    
   
    Sheets(1).Range("b2").CopyFromRecordset rs

rs.Close:   cn.Close
Set cn = Nothing:   Set rs = Nothing
End Sub

[R@v14]

УРРРААААА!!!! Заработало!!! Огромный респЭкт DOOBER-у!!! )))))
Макрос отлично отрабатывает с поиском по БИКу, осталось только навести лоск (расчет ключа по счету, проверка корректности ввода счета и бика)- но это уже я сам справлюсь!
Большое человеческое СПАСИБО за консультации всем форумчанам!! ))