Private Sub Command7_Click()
        Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =Loca_T.Text;Persist Security Info = False"
         = adCmdText
        Adodc1.RecordSource = "select * from book"
        Adodc1.Refresh
        TimX.Text = Now
End Sub

我希望在Loca_Text输入数据库地址，通过代码使Ado动态链接输入的数据库。可是运行后，提示出错；而我直接在代码里输入"Data Source = 文件的绝对地址"就没事。这是怎么回事？怎么解决？
如输入Loca_T.Text=E:\data1.mdb,运行后提示“找不到文件E:\Loca_T.Text”。而我直接在代码里输入"Data Source=E:\data1.mdb",这样就不会出错。

非常感谢！！问题已解决，你的方法真给力！！