在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數據庫的連接字符串，可以根據實際情況進行調整。
