Set DBFConn = New ADODB.Connection



DBFConn.Open "Provider=MSDASQL.1;Persist Security Info=False;mode=19;Data Source=Файлы dBASE;Initial Catalog=" + BankImport.File1.Path

Set dbfRs = New ADODB.Recordset

a = ColE(dbfRs, "Summa")
Old = Not (ColE(dbfRs, "sopl"))
NewN = ColE(dbfRs, "newnum")

Public Function ColE(rs As ADODB.Recordset, colName As String) As Boolean


     
    On Error GoTo errh:

' BankImport.File1.FileName это к прамеру "05TRGH07.DBF"
    Q = "SELECT " + colName + " FROM " + BankImport.File1.FileName
   rs.Open (Q), DBFConn

    ColE = True
    rs.Close
   Exit Function
   errh: 
   MsgBox Err.Description
   ColE = False
   End Function