Private Sub Form_Load()
Dim FileName As Variant
Set FileName = CreateObject("scripting.filesystemobject")
FileName = FileName.getfile(App.Path & "\VBA代码库.mdb")
If FileName = App.Path & "\VBA代码库.mdb" Then
DBFileName = "Provider=Microsoft.Jet.OLEDB.4.0"
DBFileName = DBFileName & ";Data Source=" & App.Path & "\VBA代码库.mdb" & ""
DBFileName = DBFileName & ";Jet OLEDB:Database Password=" & "zwy112"
Set CNN = New ADODB.Connection
CNN.Open DBFileName
Else
MsgBox "对不起，找不到ACCESS数据库!", vbInformation, "启动提示"
End If
End Sub

如上代码，如果数据库与[VBA代码库.mdb]名称不同或者没有[VBA代码库.mdb]时，弹出提示信息：对不起，找不到ACCESS数据库!

可是上面的代码并没有实现弹出的信息：


而是出现如下的提示信息：


要如何修改代码？谢谢！

[此贴子已经被作者于2007-6-19 0:07:38编辑过]

如下附件：

当数据库为：VBA代码库123.mdb时,只能错误的提示

MsgBox "对不起，找不到ACCESS数据库!", vbInformation, "启动提示"

上面一句没有运行并提示。

[此贴子已经被作者于2007-6-19 9:03:55编辑过]

If Dir(App.Path & "\资料收集库.mdb") = "" Then
MsgBox App.Path & "\资料收集库.mdb" & "不存在!", vbInformation, "资料收集器"
Unload Me: Exit Sub
Else
DBFileName = "Provider=Microsoft.Jet.OLEDB.4.0"
DBFileName = DBFileName & ";Data Source=" & App.Path & "\资料收集库.mdb" & ""
DBFileName = DBFileName & ";Jet OLEDB:Database Password=" & "zwy112"
Set CNN = New ADODB.Connection
CNN.Open DBFileName
End If

用以上的代码，就可以实现了，谢谢楼上2位！