急[Microsoft][ODBC驱动程序管理器]未发现数据源名称并且未指定默认驱

Question

我在模块里写的Public PublicStr As String
Public Sub main()
PublicStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "/tbs.mdb;" '设置连接字符串ConnectionString属性
End Sub在窗体中调用Private Sub Form_Load()
Adodc1.connectionstring = PublicStr
Adodc1.RecordSource = "select * from user"
Adodc1.Refresh
End Sub显示[Microsoft][ODBC驱动程序管理器]未发现数据源名称并且未指定默认驱
高亮显示Adodc1.Refresh已引用了microsoft activex data object 2.5 library
想用字符串调用ACCESS不知道错在哪里了,请教谢谢!!!!
另外这个Public Sub main()主函数是不是定义以后在任意窗体中都可以调用PublicStr字符串

Answer 1

你的路径符号错了，Data   Source="   +   App.Path   +   "/tbs.mdb;"   

Answer 2

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& App.Path &"\tbs.mdb;" 
另外引用了ADO，不必再用adodc控件了

Answer 3

谢谢啊
Public Sub main()
PublicStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\tbs.mdb;" '设置连接字符串ConnectionString属性
End Sub改过来了
问题还是一样啊
显示[Microsoft][ODBC驱动程序管理器]未发现数据源名称并且未指定默认驱 
高亮显示Adodc1.Refresh 

Answer 4

Source="&   App.Path   &"\tbs.mdb;"   
改成这样也报错显示[Microsoft][ODBC驱动程序管理器]未发现数据源名称并且未指定默认驱 
mdsn显示自动化错误（错误 440）
   
当访问 Automation 对象时，发生了特定类型的错误。此错误有以下原因和解决方法： 当执行某个方法时，或是得到或设置对象变量的属性时，发生了此错误。创建此对象的应用程序会报告此错误。 
检查 Err 对象的属性以决定错误的来源和性质。同样地，也可以在访问语句前，直接使用 On Error Resume Next 语句，然后在访问语句后检查错误。请指点

Answer 5

把模块中的代码加到窗体中
Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2Dim PublicStr As String
PublicStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\tbs.mdb;"
Adodc1.ConnectionString = PublicStr
Adodc1.RecordSource = "select * from 用户"
Adodc1.Refresh
End Sub
就不出错了
但我想利用模块简化工程,谁能告诉我问题出在哪里了,谢谢