在VB中，可以使用循環遍歷ADODB.Recordset對象來獲取表的信息。以下是一個示例代碼，演示如何從Recordset中提取表中的信息：

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

' 建立數據庫連接
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\your_database.mdb;"

' 執行SQL查詢并將結果存儲在Recordset中
rs.Open "SELECT * FROM your_table", conn

' 遍歷Recordset并獲取表的信息
Do While Not rs.EOF
    ' 獲取每一行記錄的字段值
    Dim fieldValue As String
    fieldValue = rs.Fields("your_field_name").Value
    
    ' 處理獲取到的字段值
    ' ...
    
    ' 移動到下一條記錄
    rs.MoveNext
Loop

' 關閉Recordset和數據庫連接
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing

在上述代碼中，首先創建了一個ADODB.Connection對象conn，并使用Open方法打開數據庫連接。然后創建了一個ADODB.Recordset對象rs，并使用Open方法執行SQL查詢，將查詢結果存儲在Recordset中。接下來使用Do While循環遍歷Recordset中的每一行記錄，通過Fields屬性獲取每一行記錄的字段值。對于每一行記錄，可以根據需要進行處理。處理完一條記錄后，使用MoveNext方法將Recordset移動到下一條記錄，直到rs.EOF為True，即遍歷完整個Recordset。最后關閉Recordset和數據庫連接，釋放資源。

請注意，上述示例假設使用的是Microsoft Access數據庫（.mdb文件），如果使用的是其他類型的數據庫，需要修改連接字符串。另外，需要根據你的表結構和字段名稱，修改SQL查詢語句和獲取字段值的代碼。