Vb6 connectionstring检查数据库连接

当我的MS Access数据库找不到时，我遇到了一个突然的程序崩溃。有人能帮我接一下电话吗。

代码如下：

DoEvents Set con = New ADODB.Connection With con .ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=mydatabase.mdb;DefaultDir=C:\Projects\Database\;Uid=;Pwd=" .CursorLocation = adUseClient .Open End With 多芬特 Set con=New ADODB.Connection 带着骗局 .ConnectionString=“驱动程序={Microsoft Access驱动程序（*.mdb）}；Dbq=mydatabase.mdb；DefaultDir=C:\Projects\Database\；Uid=；Pwd=” .CursorLocation=adUseClient 打开 以
我想把代码放在像这样的地方

if connection = successful then continue to table query... else show message box endif 如果连接=成功，则 继续表查询。。。 其他的 显示消息框 恩迪夫

---

为了检测失败的连接，您必须执行错误捕获

' Start error trapping.
On Error Resume Next

Set con = New ADODB.Connection
With con
    .ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=mydatabase.mdb;DefaultDir=C:\Projects\Database\;Uid=;Pwd="
    .CursorLocation = adUseClient
    .Open
End With

' Check for error.
If Err <> 0 Then
    ' Error.
    Msgbox("Error during connection.")
Else
    ' Success.
End If

' End error trapping.
On Error GoTo 0

启动错误捕获。 出错时继续下一步 Set con=New ADODB.Connection 带着骗局 .ConnectionString=“驱动程序={Microsoft Access驱动程序（*.mdb）}；Dbq=mydatabase.mdb；DefaultDir=C:\Projects\Database\；Uid=；Pwd=” .CursorLocation=adUseClient 打开 以 '检查错误。 如果错误为0，则 “错误。 Msgbox（“连接期间出错”） 其他的 “成功。 如果结束 '结束错误捕获。 错误转到0

---

您可以这样使用错误处理：

On Error Goto ConErr

Set con = New ADODB.Connection  
With con
.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=mydatabase.mdb;DefaultDir=C:\Projects\Database\;Uid=;Pwd="
.CursorLocation = adUseClient  
.Open
End With

' here insert query code or Goto statemen '

Exit sub
ConErr:
MsgBox "connection error"