Dim a0 as Byte, a1 as Byte, a2 as Byte, a3 as Byte, a4 as Byte, a5 as Byte, a6 as Byte, a7 as Byte, a8 as Byte, a9 as Byte
Dim b0 as Byte, b1 as Byte, b2 as Byte, b3 as Byte, b4 as Byte, b5 as Byte, b6 as Byte, b7 as Byte, b8 as Byte, b9 as Byte
' ...........
Dim m0 as Byte, m1 as Byte, m2 as Byte, m3 as Byte, m4 as Byte, m5 as Byte, m6 as Byte, m7 as Byte, m8 as Byte, m9 as Byte

Set cnn = New ADODB.Connection
strCnnString = "Driver={Microsoft Visual FoxPro Driver};DriverID=277;UID=;PWD=;" & _
    "SourceDB=D:\Mybase;SourceType=DBF;Exclusive=No;" & _
    "BackgroundFetch=Yes;Collate=Machine;Null=no;Deleted=Yes;"
cnn.Open strCnnString
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient
sqlString = "SELECT date, doc, cena FROM mydbf" ' здесь надо бы сразу получить date и cena как строку (текст)
Set rst = cnn.Execute(sqlString)

Public TextBoxUpdateTime
Sub MyMacro()
MsgBox "Hello!"
End Sub

Private Sub TextBox_Change()
Dim tx
tx = TimeValue("00:00:05") ' интервал задержки
If TextBoxUpdateTime+ tx < Now Then ' если время выполнения макроса ещё не подошло
On Error Resume Next
Application.OnTime TextBoxUpdateTime+ tx, "MyMacro", Schedule:=False ' отмена запуска макроса в старое время
On Error GoTo 0
TextBoxUpdateTime= Now
Application.OnTime TextBoxUpdateTime+ tx, "MyMacro" ' назначение запуска на новое время
End If
End Sub

Dim cnn As ADODB.Connection   
Dim strCnnString As String   
Dim rst As ADODB.Recordset   
Dim sqlString As String   
Dim Data As Variant   
Dim DirPath As String   
   
DirPath = "D:\MyBase"   
   
Set cnn = New ADODB.Connection   
' Строка подключения ODBC.   
Set cnn = New ADODB.Connection   
    strCnnString = "Driver={Microsoft Visual FoxPro Driver};DriverID=277;UID=;PWD=;" & _   
    "SourceDB=" & DirPath & ";SourceType=DBF;Exclusive=Yes;" & _   
    "BackgroundFetch=Yes;Collate=RUSSIAN;Null=Yes;Deleted=Yes;" 'Machine   
cnn.Open strCnnString ' НА ЭТОЙ СТРОКЕ ВЫЛЕТАЕТ ОШИБКА   
   
' Используем метод Execute для создания набора записей.   
Set rst = New ADODB.Recordset   
rst.CursorLocation = adUseClient   
   
sqlString = "INSERT INTO mydbf (……)" ' Тут sql-строка для вставки данных   
   
Set rst = cnn.Execute(sqlString)   
' If rst.EOF Then   
' Else   
' Data = rst.GetRows   
' End If   
'     rst.Close   
'     Set rst = Nothing   
    cnn.Close   
    Set cnn = Nothing