На VB6 используя ADO в Таблицу MDB данные их TXT файла!

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

Как на VB6 в таблицу MDB базы закачать данные из текстового файла в котором данные (столбцы) фиксированной длины?

Решение задачи: «На VB6 используя ADO в Таблицу MDB данные их TXT файла!»

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

                            Private Sub ReadFile()
Dim cn As ADODB.Connection
Dim strLine As String
Dim strSQL As String
 
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\test.mdb"
Open "c:\test.txt" For Input Access Read As #1
Do While Not EOF(1)
   Line Input #1, strLine
   strSQL = "insert into tblTest (aa, bb) " & _
      "values('' & Mid(strLine, 1, 10) & '','' & _
      Mid(strLine, 11, 20) & '')"
   cn.Execute strSQL, , adExecuteNoRecords
Loop
 
Close #1
Set cn = Nothing
End Sub
                        