用读文件的方式把一个TXT文件读入一个ACCESS2000里?

Question

用读文件的方式把一个TXT文件读入一个ACCESS2000里，怎么样做？
txt格式为：
编号 名称 　　　　账号 金额 代销
44010002 广州0002 5810221037524214 2012.36 12074.16
44010003 广州0003 5810221037524222 732.62 4395.72
44010004 广州0004 5810221037524230 993.96 5963.76
要求，读入前先判断所要读入的文件第一行是否相等（就是说字段要为
编号 名称 　　　　账号 金额 代销，空白处不一个
tab，另外读入的数放入ACCESS2000里后，前三个字段编号名称账号要为文本类一，而后面的金额和代销要为货币型，保留二个小数点．）

Answer 1

Private Sub TxtToMdb(sTxtPath As String, sTxtFileName As String, sAccessFullFileName As String,sAccessTable As String)
'功能：将文本文件导入到Access中的表
'调用：Call TxtToMdb("c:\","test.txt","c:\a.mdb","NewTempTable")
'结果：将c:\test.txt导入到c:\a.mdb中的NewTempTable表中    Dim db As DAO.Database
 
    Set db = DBEngine.CreateDatabase(sAccessFullFileName, dbLangGeneral)
    If Err.Number = 3204 Then
        Set db = Workspaces(0).OpenDatabase(sAccessFullFileName)
    End If
    db.Execute "SELECT * into " & sAccessTable & " FROM [Text;HDR=NO;DATABASE=" & sTxtPath & "]." & sTxtFileName
    db.Close
    Set db = Nothing
End Sub

Answer 2

SELECT * into [你想形成的表名] FROM [Text;HDR=NO;DATABASE="路径"].[Txt文件名]