Private Sub Command1_Click()
On Error GoTo err1

Dim buf As String
Dim t() As table6

Dim rFF As Integer:  rFF = FreeFile

Open "C:\TEXT.TXT" For Input As #rFF

Dim i As Byte, z As Long
i =  0 
z =  1 

Do Until EOF(rFF)
    i = i +  1 
    ReDim Preserve t(z)
    Line Input #rFF, buf
    If InStr( 1 , buf, "/") >  0  Then
        i =  0 
        z = z +  1 
    End If
    Select Case i
       Case  1 :      t(z).pole1 = buf
       Case  2 :      t(z).pole2 = buf
       Case  3 :      t(z).pole3 = buf
       Case  4 :      t(z).pole4 = buf
       Case  5 :      t(z).pole5 = buf
       Case  6 :      t(z).pole6 = buf
    End Select
Loop
Close #rFF

'допустим есть база db1.mdb и в ней есть шесть таблиц
Dim file_mdb As String:           file_mdb = App.Path & "\db1.mdb"
Dim conn As ADODB.Connection:     Set conn = New ADODB.Connection
Dim rst1 As ADODB.Recordset:      Set rst1 = New ADODB.Recordset
Dim rst2 As ADODB.Recordset:      Set rst2 = New ADODB.Recordset
Dim rst3 As ADODB.Recordset:      Set rst3 = New ADODB.Recordset
Dim rst4 As ADODB.Recordset:      Set rst4 = New ADODB.Recordset
Dim rst5 As ADODB.Recordset:      Set rst5 = New ADODB.Recordset
Dim rst6 As ADODB.Recordset:      Set rst6 = New ADODB.Recordset
 
conn.Provider = "Microsoft.Jet.OLEDB.4.0"   ' Microsoft ActiveX Data Objects 2.7 Library
conn.Open file_mdb, "Admin" ', password

rst1.Open "Таблица1", conn, adOpenDynamic, adLockOptimistic
rst2.Open "Таблица2", conn, adOpenDynamic, adLockOptimistic
rst3.Open "Таблица3", conn, adOpenDynamic, adLockOptimistic
rst4.Open "Таблица4", conn, adOpenDynamic, adLockOptimistic
rst5.Open "Таблица5", conn, adOpenDynamic, adLockOptimistic
rst6.Open "Таблица6", conn, adOpenDynamic, adLockOptimistic

i =  0 
For z =  1  To UBound(t)
    For i =  1  To  6 
        Select Case i
           Case  1 :      rst1.AddNew:    rst1.Fields( 0 ) = t(z).pole1:    rst1.Update
           Case  2 :      rst2.AddNew:    rst2.Fields( 0 ) = t(z).pole2:    rst2.Update
           Case  3 :      rst3.AddNew:    rst3.Fields( 0 ) = t(z).pole3:    rst3.Update
           Case  4 :      rst4.AddNew:    rst4.Fields( 0 ) = t(z).pole4:    rst4.Update
           Case  5 :      rst5.AddNew:    rst5.Fields( 0 ) = t(z).pole5:    rst5.Update
           Case  6 :      rst6.AddNew:    rst6.Fields( 0 ) = t(z).pole6:    rst6.Update
        End Select
    Next
Next

err1:
    If Err.Number <>  0  Then
        MsgBox Err.Description
    End If
    On Error Resume Next
    rst1.Close: Set rst1 = Nothing
    rst2.Close: Set rst2 = Nothing
    rst3.Close: Set rst3 = Nothing
    rst4.Close: Set rst4 = Nothing
    rst5.Close: Set rst5 = Nothing
    rst6.Close: Set rst6 = Nothing
    conn.Close: Set conn = Nothing
    Close
    Err =  0 
End Sub