Private Sub Form_Load()
Dim cnn As New ADODB.Connection
If Dir(App.Path + "\123.mdb") <> "" Then
cnn.ConnectionString = "provider=microsoft.jet.oledb.4.0;" + "data source=" + App.Path + "\123.mdb;"
cnn.Open
If cnn.State = adStateOpen Then
MsgBox "打开数据库"
End If
cnn.Close
If cnn.State = adStateClosed Then
MsgBox "关闭数据库"
End If
Else
MsgBox ("找不到人事数据库")
End If
End Sub



为什么显示找不到人事数据库。

1 数据库存在
2 工程打开方式是从文件中选择工程打开的？会造成 app.path  不是工程目录

另外，你代码里，打开了数据库后就立即关闭，你打算要做什么？一般在程序退出时关闭数据连接。

代码每缩进，好难读！应该就是数据库不在app.path目录里。

你这个还没有到操作数据库呢
问题就在If Dir(App.Path + "\123.mdb") <> "" Then这句，加中断点看看。

If cnn.State = adStateOpen Then
MsgBox "打开数据库"
End If

cnn.Close '另外，你这个这个地方已经关闭连接了，后面的判断必然成立的啊， 不知道意义何在？ 也许你只是练习吧

If cnn.State = adStateClosed Then
MsgBox "关闭数据库"
End If

[ 本帖最后由 xiangyue0510 于 2015-10-15 12:51 编辑 ]

代码是在编辑环境运行的？