[5分]如何将多个txt文件用代码导入指定的access表中

Private Sub txtimport_Click()
Dim i As Integer

'需引用ADO库和Office库

'定义ADO对象和打开文件拾取器对象

Dim cnn As New ADODB.Connection

Dim rst As New ADODB.Recordset

Dim fd As FileDialog

'定义文件名和文件路径。

Dim FileName As String

Dim FilePath As String

Set fd = Application.FileDialog(msoFileDialogFilePicker)

With fd

'允许多个选取，建议把所需文件放在同一个文件夹里。

.AllowMultiSelect = True

'设置打开文件类型，以免发生错误

.Filters.Clear

.Filters.Add "文本文件(*.txt)", "*.txt"

'初始化视图

.InitialView = msoFileDialogViewDetails

End With

'如果选择

If fd.Show = -1 Then

'统计所选文件数

    For i = 1 To fd.SelectedItems.Count

'提取文件名和文件路径字符串，InStrRev(fd.SelectedItems(i), "\", -1)表示逆向获取"\"的位置

   FileName = Right(fd.SelectedItems(i), Len(fd.SelectedItems(i)) - InStrRev(fd.SelectedItems(i), "\", -1))

   FilePath = Left(fd.SelectedItems(i), InStrRev(fd.SelectedItems(i), "\", -1))

'打开ADO链接和数据集，这两项是关键。

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FilePath & ";Extended Properties=""text;HDR=No;FMT=Delimited;"";"

rst.Open "Select * From [" & FileName & "]", cnn, adOpenStatic, adLockReadOnly, adCmdText

'复制数据集到指定位置
DoCmd.RunSQL "SELECT * INTO [TMP_POImport] FROM [Text;FMT=Delimited;HDR=Yes;DATABASE=" & FilePath & "].[" & FileName & "]"

'关闭数据集和链接以便下一次执行

rst.Close

cnn.Close

    Next i

End If  
End Sub

以上代码是参考网上的资源拼凑的，但复制数据集到指定位置这段代码一直不行，[TMP_POImport] 是access数据库里的表，不知道这段代码该如何写，请老师们、高手们赐教

万分感谢