程序代码：
Option Explicit
Dim db As DAO.Database
Private Sub Command1_Click()
Dim t1 As String
Dim t2 As String
t1 = Trim(Text1.Text)
t2 = "[Text;DATABASE=" + t1 + "][文件名.TXT]"
  If Trim(Text1.Text) <> "" Then
    'db.Execute "SELECT * INTO [Text;DATABASE=C:\].[文件名.TXT] FROM [rq]" 我不想用这种黙认的
    db.Execute "seclect * into " & t2 & " FROM [rq]"
  Else
    Exit Sub
  End If
End Sub

Private Sub d1_Change()
  Dir1.Path = d1.Drive
  Text1.Text = Dir1.Path
End Sub

Private Sub Dir1_Change()
  Text1.Text = Dir1.Path
End Sub

Private Sub Form_Load()
    d1.Drive = "c:\"
    Dir1.Path = d1.Drive
    Set db = Workspaces(0).OpenDatabase(App.Path & "\rq.mdb")
End Sub

产生错误：实时错误3078，Microsoft Jet数据引擎找不到输入表或查询