在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查询语句和获取字段值的代码。
