大致思路:VB逐行读取TXT文件,并用split函数将每行两个变量存入事先准备好的ACCESS数据库字段1,和字段2中,每读一行产生一个变量记录行号并存入ACCESS的"序号"字段中.
事先准备一个名称为AAA的ACCESS数据库,里面的表为bbb,且有三个字段.

Private Sub Command1_Click()
Dim a As Integer                  '定义行号
a = 0
Dim var1 As String
Dim strConn  As String            '连接字符串
    Dim strSql   As String            'SQL命令
    Dim conn     As ADODB.Connection  '数据源
    Dim Ado      As ADODB.Recordset   '记录集
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\aaa.mdb;Persist Security Info=False"
    strSql = "SELECT * FROM bbb"
    Set conn = New ADODB.Connection
    conn.ConnectionString = strConn
    conn.Open
    Set Ado = New ADODB.Recordset
    Set Ado.ActiveConnection = conn
    Ado.LockType = adLockOptimistic
    Ado.CursorType = adOpenKeyset
    Ado.Open strSql
Open "c:\1.txt" For Input As #1                  '打开存入上列数据的TXT文件
Do While Not EOF(1)                              '开始循环
    Line Input #1, var1                          '将#中的字符串赋予变量var1
    Dim oooxyz() As String
        oooxyz = Split(var1, "        ")
        a = a + 1
    Ado.AddNew
    Ado.Fields("序号") = a                       '将行号/第1个数/第2个数存入ACCESS
    Ado.Fields("字段1") = oooxyz(0)
    Ado.Fields("字段2") = oooxyz(1)
    Ado.Update
Loop                                              '到文本最后一行时跳出循环
Close #1                                           '关闭#1
    If Ado.State Then Ado.Close
    Set Ado = Nothing
    If conn.State Then conn.Close
    Set conn = Nothing
End Sub