在VB（Visual Basic）中连接数据库通常使用ActiveX Data Objects （ADO） 库。以下是使用ADO连接数据库的基本步骤：
引用ADO库
在VB项目中，需要先引用ADO库。可以通过“项目”菜单选择“引用”，然后勾选“Microsoft ActiveX Data Objects x.x Library”来引用。
创建连接对象
使用`ADODB.Connection`类创建一个新的连接对象。例如：
```vb
Dim conn As New ADODB.Connection
```
设置连接字符串
连接字符串包含了连接数据库所需的信息，如驱动程序、服务器地址、数据库名称、用户名和密码等。例如，连接SQL Server数据库的连接字符串可能如下所示：
```vb
Dim connString As String
connString = "Provider=SQLOLEDB;Data Source=服务器IP地址;Initial Catalog=数据库名;User ID=用户名;Password=密码"
```
打开连接
使用连接对象的`Open`方法打开数据库连接。例如：
```vb
conn.ConnectionString = connString
conn.Open()
```
执行SQL查询
连接成功后，可以使用`ADODB.Connection`对象的`Execute`方法执行SQL查询。例如：
```vb
Dim rs As New ADODB.Recordset
rs.Open "SELECT * FROM 表名", conn
```
处理查询结果
使用`Recordset`对象遍历查询结果。例如：
```vb
Do Until rs.EOF
' 处理查询结果
rs.MoveNext()
Loop
rs.Close()
```
关闭连接
在完成数据库操作后，记得关闭`Recordset`和`Connection`对象以释放资源。例如：
```vb
rs.Close()
conn.Close()
```
```vb
' 引用ADO库
Imports ADODB
Sub Main()
On Error GoTo chkERR
' 创建连接对象
Dim conn As New ADODB.Connection
Dim connString As String
connString = "Provider=SQLOLEDB;Data Source=服务器IP地址;Initial Catalog=数据库名;User ID=用户名;Password=密码"
conn.ConnectionString = connString
conn.Open()
' 执行SQL查询
Dim rs As New ADODB.Recordset
rs.Open "SELECT * FROM 表名", conn
' 处理查询结果
Do Until rs.EOF
' 处理查询结果
rs.MoveNext()
Loop
' 关闭连接
rs.Close()
conn.Close()
Exit Sub
chkERR:
MsgBox "无法联接!连接错误处理"
End Sub
```
请根据实际情况替换连接字符串中的服务器IP地址、数据库名、用户名和密码等信息。