文本文件格式为  姓名  张三   里司....
                                年龄  23         23
                                 性别  男     女
我想实现导入access后显示的格式为
姓名  年龄  性别
张三  23      男
里司  23      女
请问如何实现,谢谢

循环逐行读取txt文件..
使用split分解成数组.
.然后insert到access里即可.

谢谢,不过小弟是新手,望高手写个源码或给个示例让我学习下
再次感谢

万丈高楼平地起.

Option Explicit

Private Sub Command1_Click()
    Dim Con As New ADODB.Connection
    Dim Rs As New ADODB.Recordset
    Dim conString As String
    Dim sql As String
    Dim Mart(10, 2) As String
    Dim i As Integer, j As Integer
   
    conString = "Provider=SQLOLEDB;Data Source=(local);Initial Catalog=Northwind;User ID=sa;Password=admin;"
    sql = "Create Table table1(col1 varchar(10),col2 varchar(10))"
    Con.Open conString
    Con.Execute sql
   
    Randomize
    For i = 0 To 9
        For j = 0 To 1
            Mart(i, j) = CStr(Int(Rnd * 90 + 10))
        Next
    Next
   
    Rs.Open "select * from table1", Con, adOpenKeyset, adLockPessimistic, adCmdText
    For i = 0 To 9
        Rs.AddNew
        For j = 0 To 1
            Rs.Fields(j) = Mart(i, j)
        Next
        Rs.Update
    Next
    Rs.Close
   
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from table1", Con, adOpenKeyset, adLockReadOnly, adCmdText
    While Not Rs.EOF
        For i = 0 To Rs.Fields.Count - 1
            Print Rs.Fields(i).Value,
        Next
        Print
        Rs.MoveNext
    Wend
    Rs.Close
    Con.Close
    Set Rs = Nothing
    Set Con = Nothing
End Sub