关于数据库连接判断的问题

Question

我是用ODBC数据源连接的数据库，我想在连接数据库的时候做一个检查，如果连不上数据库就出msgbox的内容，可是测试的时候如果连不上,VB就直接报错了，是不是这样写不对啊，那该怎么写呢！
Dim Con As ADODB.Connection
Set Con = New ADODB.Connection
Con.ConnectionString = "DSN=datadb1;UID=sa;PWD="
Con.Open
If Con.State <> 1 Then
MsgBox ("网络故障，请检查网络！")
End If

Answer 1

Dim Con As ADODB.Connection 
Set Con = New ADODB.Connection 
On Error Goto ErrProc:
Con.ConnectionString = "DSN=datadb1;UID=sa;PWD=" 
Con.Open 
...
Exit Sub (或者Exit Function)
ErrProc:
MsgBox ("网络故障，请检查网络！") 
End Sub (或者End Function)