在VB中，可以使用ADODB對象來連接和讀取Access數據庫。以下是一個簡單的示例代碼：
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.Open "SELECT * FROM tableName", conn
Do While Not rs.EOF
MsgBox rs.Fields("columnName").Value
rs.MoveNext
Loop
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
在上面的示例中，首先創建一個ADODB.Connection對象并設置連接字符串，然后打開連接。接著創建一個ADODB.Recordset對象，并使用Open方法執行查詢語句。最后使用循環讀取Recordset中的數據，并在MessageBox中顯示。最后關閉Recordset和連接對象，并將其設置為Nothing釋放內存。
