在VB中调用数据库通常使用ADO（ActiveX Data Objects）技术。以下是一个简单的示例代码，演示如何在VB中连接到数据库并执行查询操作：
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"
conn.Open
Set rs = New ADODB.Recordset
rs.ActiveConnection = conn
rs.Source = "SELECT * FROM Table1"
rs.Open
Do While Not rs.EOF
MsgBox rs("Field1")
rs.MoveNext
Loop
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
在上面的代码中，首先创建了一个Connection对象conn并设置其连接字符串，然后打开连接。接着创建了一个Recordset对象rs，并将其与连接关联起来，执行查询操作并遍历结果集中的数据，最后关闭连接和释放对象的引用。
需要注意的是，代码中的连接字符串根据不同的数据库类型和位置可能会有所不同。在示例代码中使用的是Microsoft Access数据库的连接字符串，可以根据实际情况进行调整。
