为什么提示我“F：\...\...\信息.mdb不是一个有效路径，确定路径名称是否正确”

Question

我打包后，安装在别人电脑上，出现数据库路径出错，可我用的是相对路径。这是怎么回事？是不是我VB安装的有问题？
程序代码如下：
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\信息.mdb;Persist Security Info=False"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Frm_AddClass.Adodc1.Refresh
Frm_AddClass.DataGrid1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub代码访问也有同样的问题：
myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\信息.mdb;"
myRs.Open "select * from 用户资料 where 用户名='" & strName & "'", myConIf Not myRs.EOF Then
    Text1.SetFocus
    MsgBox "该用户名已经存在，请使用其他用户名！", vbOKOnly, "警告"
    myRs.Close
    myCon.Close
    Exit Sub
End IfIf strPass <> strPassAgain Then
    MsgBox "两次输入的密码不同！", vbOKOnly, "警告"
    Text3.SetFocus
    myRs.Close
    myCon.Close
    Exit Sub
End If
myRs.Close
希望各位多多帮忙！急！！！

Answer 1

看一下adodc控件的属性,你把连接字符串设置成固定的了，去掉就好了

Answer 2

如果装在根目录下肯定出错
app.path要注意这一点

Answer 3

嗯，如果是放在根目录下，app。path返回会带一个"\"这样App.Path & "\信息.mdb就变成了"driver:\\信息.mdb

Answer 4

用相对路径,如:
Public   gsOdbcName   As   String   
Public   ADOsdb   As   new   ADODB.Connection         gsOdbcName   =   "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data   Source= "   _ 
                &   app.path   &   "\db.mdb "   &   "; " 
        
With   ADOsdb 
                If   .State   <>   adStateOpen   Then 
                        .CursorLocation   =   adUseClient 
                        .ConnectionString   =   gsOdbcName 
                        .Open 
                End   If 
End   With