文本文件导入到access的处理，如何用代码实现，高分跪求

Question

在access中，可以直接把文本文件导入到access中，对应的这个处理，在VB中如何用代码实现
急啊
哪位大虾帮帮忙
提供个例子

Answer 1

什么形式的文本文件？是要把内容导入到表的一个字段？还是内容本身就是表，然后导入成access表？

Answer 2

CSV文件
内容本身就是表
导入到access表中

Answer 3

access本身就有导入csv文本文件的功能呀

Answer 4

现在就是想把access本身的这部分功能使用VB代码调用access来实现

Answer 5

http://www.newasp.net/tech/data/4496.html

Answer 6

有没有VB中调用Access中功能的例子阿

Answer 7

Option Explicit
Public cnnTemp As ADODB.Connection
Dim MyData As String
Dim N() As String
Private Sub Command1_Click()
    Dim MyFSO As New FileSystemObject
    Dim MyFile As File
    Dim MyTS As TextStream
    Dim lsData() As String
    Dim lsTemp As String
    Dim llCount As Long
    Dim lsSql As String
    Set MyFile = MyFSO.GetFile("c:\123.txt")
    Set MyTS = MyFile.OpenAsTextStream(ForReading)
    Do While MyTS.AtEndOfStream = False
        lsTemp = MyTS.ReadLine
        ReDim Preserve lsData(UBound(lsData) + 1)
        lsData(UBound(lsData)) = lsTemp
    Loop
    MyTS.Close
    Set MyFile = Nothing
    Set MyFSO = Nothing
    ReDim Preserve OutDate(UBound(lsData))
    On Error GoTo err_Header
    cnnTemp.BeginTrans
    For llCount = 0 To UBound(lsData)
        N = Split(lsdate(llCount), ",")
        lsSql = "insert into myTable( 字段1,字段2,字段3,字段1,字段4,字段5,字段6,字段7,字段8) values("
        lsSql = lsSql & "'" & N(0) & "',"
        lsSql = lsSql & "'" & N(1) & "',"
        lsSql = lsSql & "'" & N(2) & "',"
        lsSql = lsSql & "'" & N(3) & "',"
        lsSql = lsSql & "'" & N(4) & "',"
        lsSql = lsSql & "'" & N(5) & "',"
        lsSql = lsSql & "'" & Left(N(6), 2) & "',"
        lsSql = lsSql & "'" & Right(N(6), 2) & "')"
        cnnTemp.Execute lsSql
    Next
    cnnTemp.CommitTrans
    Exit Sub
err_Header:
    cnnTemp.RollbackTrans
    MsgBox "插入数据错误", vbOKOnly
End SubPrivate Sub Form_Load()
    MyData = App.Path & "\ACC.mdb"
    Set cnnTemp = New ADODB.Connection
    With cnnTemp
        .Provider = "microsoft.jet.oledb.4.0"
        .Open MyData
    End With
End Sub