帮忙改段代码，急！！

Question

 db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\02\123.mdb;Persist Security Info=False"
我想将代码中的C:\Documents and Settings\Administrator\桌面\02\123.mdb换成Text1.Text获得的文件路径字符串，也就是db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Text1.Text;Persist Security Info=False为什么不行，请问怎么改

Answer 1

db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Text1.Text &";Persist Security Info=False"

Answer 2

还行问一段代码
Private Sub Command2_Click()
  '从excel导出到 access
  Dim db As New ADODB.Connection
  Dim sPath As String
  db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Text1.Text & ";Persist Security Info=False"
  sPath = App.Path + "\backup.xls"
  Call db.Execute("select * into Table4 From [Sheet1$] In '" & sPath & "' 'excel 8.0;'")
  db.Close
  Set db = Nothing
End Sub
一个这段代码第一次 '从excel导出到 access时会创建Table4表，执行第二次导入时就出现Table4表已存在，是什么原因，我想实现将excel的每次要导入的新数据导入access的Table4表中，要怎么编写，万分感激