[求助]找不到ACCESS数据库时提示信息
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编辑过]