在VB中，可以使用ADO(ActiveX Data Objects)對象來讀取Access數據庫。

首先，需要引用ADODB庫。在VB編輯器中，點擊"項目" -> “引用”，在彈出的對話框中選擇"Microsoft ActiveX Data Objects x.x Library"，然后點擊"確定"。

接下來，可以使用以下代碼來連接到Access數據庫并讀取數據：

Dim conn As ADODB.Connection
Set conn = New ADODB.Connection

' 設置連接字符串
Dim connStr As String
connStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\database.accdb;"

' 打開連接
conn.Open connStr

' 執行查詢語句
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

Dim sql As String
sql = "SELECT * FROM TableName"

rs.Open sql, conn

' 讀取數據
Do Until rs.EOF
    ' 讀取字段值
    Dim value As String
    value = rs.Fields("FieldName").Value

    ' 處理數據

    ' 移動到下一條記錄
    rs.MoveNext
Loop

' 關閉記錄集和連接
rs.Close
conn.Close

' 釋放對象
Set rs = Nothing
Set conn = Nothing

上述代碼首先創建一個Connection對象，然后設置連接字符串來連接到Access數據庫。接著，創建一個Recordset對象，并執行查詢語句。然后，在一個循環中，通過rs.Fields(“FieldName”).Value來讀取字段值，可以根據實際需求進行數據處理。最后，關閉記錄集和連接，并釋放相應的對象。

需要注意的是，上述代碼中的連接字符串需要根據實際情況進行修改，其中"Provider=Microsoft.ACE.OLEDB.12.0"用于指定數據提供程序，"Data Source=C:\path\to\database.accdb"用于指定Access數據庫的路徑和文件名，"TableName"和"FieldName"需要替換為實際的表名和字段名。

另外，如果使用的是早期版本的Access數據庫（.mdb文件），需要將連接字符串中的"Microsoft.ACE.OLEDB.12.0"改為"Microsoft.Jet.OLEDB.4.0"。