VB[ODBC 驱动程序管理器]未发现数据源名称并且未指定默认驱动程序
小女子最近在弄进销存管理系统的登录界面,在combox中选择已经在Access数据库中建立好的表格中的姓名,模块的代码如下:Public Sub Main()
constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db2.mdb;Persist Security Info=false"
dbstr1 = App.Path & "\db2.mdb"
nAdoCon.ConnectionString = constr
nAdoCon.Open Load frmLogin
frmLogin.Show
Load frmMain
If nAdoCon.State <> 1 Then
MsgBox "数据库连接失败!", vbInformation + vbOKOnly, "错误" '给出错误信息
Exit Sub
End If
End Sub
但是,悲催的是一旦运行就显示[ODBC 驱动程序管理器]未发现数据源名称并且未指定默认驱动程序!
接近崩溃边缘,望高人搭救!