怎么来快速判断用ADO连接失败?然后,弹出我的对话框说明不能连接到数据库服务器.

Question

Private Sub Connect()
On Error Goto ErrHandler
Dim Cn AS New Adodb.Connection
Cn.open "..."
Msgbox "Success!"
Exit Sub
ErrHandler:
    MsgBox Err.Description 
End Sub

Answer 1

你可以这样判断，if cnn is nothing then:msgbox "your information"

Answer 2

On Error Resume Next
    Err.Clear    cnn.open"....."    If Err.Number <> 0 Then
        MsgBox ("不能打开数据库！"), 48, "数据库连接错误" 
        End
    End If