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代码库.mdb”这个文件放在你工程目录下就行了。

如下附件：

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

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

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

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

我用c＃写了一个看看对你有用没，先判断一下文件是否存在，存在在打开数据库，进行操作。
private void Form1_Load(object sender, EventArgs e)
{
//string FileName = @"D:\My Documents\db1.mdb";
string FileName = Directory.GetCurrentDirectory().ToString()+"\\db1.mdb";

if (File.Exists(FileName))
{
MessageBox.Show("操作成功!", "启动提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);
}
else
{
MessageBox.Show("对不起，找不到ACCESS数据库!","启动提示",MessageBoxButtons.OK,MessageBoxIcon.Warning);
Application.Exit();

}

}

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位！