数据导入问题

[游子]

别人的源码（TXT导入到ACCESS）
Dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\RLZY.mdb;"
conn.Execute "drop table one1"
conn.Execute "SELECT * INTO one1 FROM test#txt IN '" & App.Path & "\'[Text;]"
'关闭连接
conn.Close
MsgBox "导入成功", vbOKOnly, "提示"
但是我先添加一个选择文本位置的代码，如下
CommonDialog1.Filter = "Text (*.txt)|*.txt"
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
s=text1.text
Text2.Text = Mid(s, InStrRev(s, "\") + 1)
Text2.Text = Mid(Text2.Text, 1, (Len(Text2) - 4)) & "#" & "txt"
所以我想把别人的代码里面的test#txt替换成text2.text里面的内容，所以更改如下
Dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\RLZY.mdb;"
conn.Execute "drop table one1"
conn.Execute "SELECT * INTO one1 FROM '" & text2.text & "' IN '" & App.Path & "\'[Text;]"
'关闭连接
conn.Close
MsgBox "导入成功", vbOKOnly, "提示"
可是提示错误了，请高手指点

[贝隆]

错误在哪一句？

[孤独剑_LPZ]

conn.Execute "SELECT * INTO one1 FROM test2#txt IN '" & App.Path & "\'[Text;]"