在VB中同时读取Access数据库中的多个表的记录，可以通过以下几种方法实现：
方法一：使用多个ADODB.Recordset对象
1. 创建多个ADODB.Recordset对象，每个对象用于读取一个表的数据。
2. 分别打开每个Recordset对象，并执行相应的SQL查询语句。
3. 遍历每个Recordset对象，获取所需的数据。
示例代码：
```vb
Dim conn As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim rs3 As New ADODB.Recordset
Dim sql1 As String
Dim sql2 As String
Dim sql3 As String
sql1 = "SELECT * FROM Table1"
sql2 = "SELECT * FROM Table2"
sql3 = "SELECT * FROM Table3"
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0；Data Source=C:\MyDatabase.mdb"
rs1.Open sql1, conn, adOpenStatic, adLockBatchOptimistic, adCmdText
rs2.Open sql2, conn, adOpenStatic, adLockBatchOptimistic, adCmdText
rs3.Open sql3, conn, adOpenStatic, adLockBatchOptimistic, adCmdText
Do While Not rs1.EOF
' 处理rs1中的数据
rs1.MoveNext
Loop
Do While Not rs2.EOF
' 处理rs2中的数据
rs2.MoveNext
Loop
Do While Not rs3.EOF
' 处理rs3中的数据
rs3.MoveNext
Loop
rs1.Close
rs2.Close
rs3.Close
conn.Close
```
方法二：使用单个ADODB.Recordset对象和SQL查询
1. 创建一个ADODB.Recordset对象。
2. 编写一个SQL查询，使用JOIN语句将多个表连接起来。
3. 打开Recordset对象，并遍历查询结果。
示例代码：
```vb
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
sql = "SELECT Table1.Field1, Table2.Field2, Table3.Field3 " & _
"FROM Table1 INNER JOIN Table2 ON Table1.KeyField = Table2.KeyField " & _
"INNER JOIN Table3 ON Table2.KeyField = Table3.KeyField"
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0；Data Source=C:\MyDatabase.mdb"
rs.Open sql, conn, adOpenStatic, adLockBatchOptimistic, adCmdText
Do While Not rs.EOF
' 处理rs中的数据
rs.MoveNext
Loop
rs.Close
conn.Close
```
方法三：使用数据库控件（如Data控件）
1. 在VB窗体上添加多个数据库控件（如Data1、Data2等）。
2. 设置每个数据库控件的`RecordSource`属性，分别指向不同的数据表或查询。
3. 刷新每个数据库控件的记录集，并操作数据。
示例代码：
```vb
Dim Data1 As ADODB.Data控件
Dim Data2 As ADODB.Data控件
Dim Data3 As ADODB.Data控件
Data1.Connect = "Provider=Microsoft.Jet.OLEDB.4.0；Data Source=C:\MyDatabase.mdb"
Data1.DatabaseName = "MyDatabase.mdb"
Data1.RecordSource = "Table1"
Data1.Refresh
Data2.Connect = "Provider=Microsoft.Jet.OLEDB.4.0；Data Source=C:\MyDatabase.mdb"
Data2.DatabaseName = "MyDatabase.mdb"
Data2.RecordSource = "Table2"
Data2.Refresh
Data3.Connect = "Provider=Microsoft.Jet.OLEDB.4.0；Data Source=C:\MyDatabase.mdb"
Data3.DatabaseName = "MyDatabase.mdb"
Data3.RecordSource = "Table3"
Data3.Refresh
' 操作Data1中的数据
Data1.Recordset.MoveFirst
' 操作Data2中的数据
Data2.Recordset.MoveFirst
' 操作Data3中的数据
Data3.Recordset.MoveFirst
```
建议
方法一适用于需要分别处理每个表的数据，并且表
