在VB中判断是否成功连接数据库，通常使用错误处理机制来捕获连接过程中可能出现的错误。以下是一些常见的方法：
使用`On Error`语句
在尝试打开数据库连接时，使用`On Error`语句来捕获错误。如果连接成功，则执行相应的代码；如果发生错误，则执行错误处理部分的代码。
```vb
Private Sub Command1_Click（）
On Error GoTo eee
Dim db As Database
Set db = OpenDatabase（"数据库地址"）
MsgBox "连接成功"
db.Close
Exit Sub
eee:
MsgBox "连接失败"
End Sub
```
检查`Connection`对象的状态
使用`Connection`对象的`State`属性来判断连接是否成功。如果`State`属性等于`adStateOpen`，则表示连接已打开。
```vb
Private Sub cmdTest_Click（）
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB.1；Persist Security Info=False；User ID=sa；Initial Catalog=silk；Data Source=SERVER"
conn.Open
If conn.State = adStateOpen Then
MsgBox "连接正常!"
Else
MsgBox "连接已断开!"
End If
conn.Close
End Sub
```
使用`Err`对象
在发生错误时，`Err`对象会包含错误信息。可以通过检查`Err.Number`和`Err.Description`来判断错误类型和原因。
```vb
Private Sub cmdTest_Click（）
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB.1；Persist Security Info=False；User ID=sa；Initial Catalog=silk；Data Source=SERVER"
conn.Open
On Error GoTo ErrHandler
' 执行数据库操作
Exit Sub
ErrHandler:
If Err.Number = 0 Then
MsgBox "连接成功"
Else
MsgBox "连接失败，错误代码：" & Err.Number & "，错误信息：" & Err.Description
End If
conn.Close
End Sub
```
测试连接字符串
在实际应用中，可以先构建连接字符串，然后尝试使用该连接字符串创建`Connection`对象，并通过检查其状态或错误信息来判断连接是否成功。
```vb
Private Function TestConnectSqlDatabase（VstrUser As String, VstrPwd As String, VstrServer As String, VstrDataBase As String） As Boolean
On Error GoTo ErrHandle
Dim cnn As ADODB.Connection
StrConn = "Driver={SQL Server}；SERVER=" & VstrServer & "；DATABASE=" & VstrDataBase & "；UID=" & VstrUser & "；PWD=" & VstrPwd
Set cnn = New ADODB.Connection
cnn.ConnectionString = StrConn
cnn.Open
TestConnectSqlDatabase = True
Done:
Set cnn = Nothing
Exit Function
ErrHandle:
TestConnectSqlDatabase = False
GoTo Done
End Function
```
通过以上方法，可以在VB中有效地判断是否成功连接到数据库，并在连接失败时提供相应的错误信息。
