Как открыть и сохранить файл .dbf? - VB

Формулировка задачи:

Через ODBC (Microsoft Visual FoxPro Driver)открыл файл .dbf (форма для заполнения реквизитов). Как теперь можно открыть уже существующий файл, и сохранить его.

Решение задачи: «Как открыть и сохранить файл .dbf?»

textual
                            Листинг программы 
                        

                            Dim cnnB as New ADODB.Connection
Dim rstA As New ADODB.Recordset
 
cnnB.Open 'Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=' & strPath
' strPath - полный путь к файлу
 
rstA.Open 'SELECT * FROM EXTERN.DBF', cnnB
' Теперь в цикле можно перекачать данные (rstS - уже открытый набор для SQL таблицы)
        Do Until rstS.EOF
            rstA.AddNew
            For i = 0 To rstA.Fields.Count - 1
                rstA.Fields(i) = rstS.Fields(i)
            Next i
            rstA.Update
            rstS.MoveNext
        Loop
                        