在VB中同时读取Access数据库中的多个表的记录，可以通过以下几种方法实现：
使用多个ADODB Recordset对象
可以创建多个ADODB Recordset对象，每个对象对应一个表，然后分别打开这些记录集对象并读取数据。
```vb
Dim conn As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim sql1 As String
Dim sql2 As String
' 设置连接字符串
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\cai\access_db.mdb;"
conn.Open
' 打开第一个记录集
sql1 = "SELECT * FROM 表1"
rs1.Open sql1, conn, adOpenStatic, adLockReadOnly
' 打开第二个记录集
sql2 = "SELECT * FROM 表2"
rs2.Open sql2, conn, adOpenStatic, adLockReadOnly
' 读取第一个记录集的数据
Do Until rs1.EOF
' 处理rs1中的数据
rs1.MoveNext
Loop
rs1.Close
' 读取第二个记录集的数据
Do Until rs2.EOF
' 处理rs2中的数据
rs2.MoveNext
Loop
rs2.Close
' 关闭连接
conn.Close
```
使用SQL JOIN语句
如果多个表之间有共同的字段，可以使用SQL JOIN语句将它们连接起来，然后通过一个ADODB Recordset对象读取数据。
```vb
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
' 设置连接字符串
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\cai\access_db.mdb;"
conn.Open
' 使用JOIN语句连接多个表
sql = "SELECT * FROM 表1 INNER JOIN 表2 ON 表1.共同字段 = 表2.共同字段"
rs.Open sql, conn, adOpenStatic, adLockReadOnly
' 读取连接后的数据
Do Until rs.EOF
' 处理rs中的数据
rs.MoveNext
Loop
rs.Close
' 关闭连接
conn.Close
```
使用ADO Data控件
如果是在本地Access数据库，可以使用ADO Data控件来简化数据库操作。
在VB编辑器中添加ADO Data控件到窗体。
设置Data控件的属性，如ConnectionString、DatabaseName和RecordSource，以指向Access数据库文件。
使用Data控件的Recordset属性来读取数据。
```vb
Dim data As ADODB.Data
Dim rs As ADODB.Recordset
' 设置连接字符串
data.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\cai\access_db.mdb;"
data.DatabaseName = "数据库名.mdb"
' 打开记录集
rs = data.Recordset
' 读取数据
rs.MoveFirst
Do Until rs.EOF
' 处理rs中的数据
rs.MoveNext
Loop
' 关闭记录集和连接
rs.Close
data.Close
```
使用ADODB.Connection对象的OpenSchema方法
可以使用OpenSchema方法获取数据库中所有表的信息，然后根据需要选择特定的表进行读取。
