在Visual Basic （VB） 中调用数据库，可以通过多种方式实现，包括 ADO、ODBC、OLE DB 以及 ODP.NET 等。其中，ADO（ActiveX Data Objects）是最常用的一种方法。以下是使用 ADO 在 VB 中调用数据库的基本步骤：
添加引用
打开 VB 开发环境中的“工程”菜单，选择“引用”。
勾选合适版本的“Microsoft ActiveX Data Objects”以添加对 ADO 对象库的引用。
创建连接字符串
定义一个 Connection 对象，并通过 ConnectionString 属性指定数据库的连接字符串。连接字符串包含了数据库类型、数据库位置、用户名和密码等信息。例如，对于 SQL Server 数据库，连接字符串可以是：“Provider=SQLOLEDB；Data Source=服务器地址；Initial Catalog=数据库名；User ID=用户名；Password=密码；”。
打开数据库连接
使用 Connection 对象的 Open 方法来打开与数据库的连接。
执行 SQL 语句
使用 Command 对象或 Connection 对象的 Execute 方法来执行 SQL 语句。例如，执行 SELECT 语句需要将结果保存在 Recordset 对象中。
处理结果集
通过遍历 Recordset 对象来获取数据库中的数据。例如，使用循环遍历记录集并获取字段值。
关闭连接
完成数据库操作后，记得关闭 Recordset 和数据库连接以释放资源。
```vb
' 导入 ADODB 命名空间
Imports ADODB
Module Module1
Sub Main()
' 创建连接字符串
Dim connStr As String = "Provider=SQLOLEDB;Data Source=数据库服务器;Initial Catalog=数据库名称;User ID=用户名;Password=密码"
' 创建连接对象
Dim conn As New Connection
conn.ConnectionString = connStr
' 打开数据库连接
conn.Open()
' 创建 SQL 查询语句
Dim sql As String = "SELECT * FROM 表名"
' 创建记录集对象
Dim rs As New Recordset
rs.Open(sql, conn)
' 遍历记录集并获取数据
While Not rs.EOF
Dim id As Integer = rs.Fields("ID").Value
Dim name As String = rs.Fields("Name").Value
' 其他字段...
' 处理数据...
rs.MoveNext()
End While
' 关闭记录集和数据库连接
rs.Close()
conn.Close()
End Sub
End Module
```
建议
选择合适的数据库连接方式：根据实际使用的数据库类型和位置选择合适的连接方式，例如 SQL Server 可以使用 OLE DB 或 ODBC 连接字符串。
错误处理：在实际应用中，建议添加错误处理代码，以便在连接数据库或执行 SQL 语句时出现错误时能够及时处理。
资源管理：确保在操作完成后关闭所有打开的数据库连接和记录集对象，以释放系统资源。