在VB中调用数据库通常使用ADO（ActiveX Data Objects）技术。以下是一个简单的示例代码，演示如何在VB中连接到数据库并执行查询操作：

Dim conn As ADODB.ConnectionDim rs As ADODB.RecordsetSet conn = New ADODB.Connectionconn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"conn.OpenSet rs = New ADODB.Recordsetrs.ActiveConnection = connrs.Source = "SELECT * FROM Table1"rs.OpenDo While Not rs.EOFMsgBox rs("Field1")rs.MoveNextLooprs.Closeconn.CloseSet rs = NothingSet conn = Nothing

在上面的代码中，首先创建了一个Connection对象conn并设置其连接字符串，然后打开连接。接着创建了一个Recordset对象rs，并将其与连接关联起来，执行查询操作并遍历结果集中的数据，最后关闭连接和释放对象的引用。

需要注意的是，代码中的连接字符串根据不同的数据库类型和位置可能会有所不同。在示例代码中使用的是Microsoft Access数据库的连接字符串，可以根据实际情况进行调整。