是否可以使用DAO Excel VBA记录集执行类似SQL JOIN的操作？

Sub JoinTables()
    Dim db As DAO.Database
    Dim rs1 As DAO.Recordset
    Dim rs2 As DAO.Recordset
    Dim joinedRs As DAO.Recordset
    
    ' 连接到数据库
    Set db = OpenDatabase("C:\path\to\database.accdb")
    
    ' 打开第一个表格或查询的记录集
    Set rs1 = db.OpenRecordset("SELECT * FROM Table1")
    
    ' 打开第二个表格或查询的记录集
    Set rs2 = db.OpenRecordset("SELECT * FROM Table2")
    
    ' 创建一个新的记录集，用于存储合并后的结果
    Set joinedRs = db.CreateRecordset
    
    ' 遍历第一个记录集
    Do Until rs1.EOF
        ' 遍历第二个记录集
        Do Until rs2.EOF
            ' 判断两个记录集中的某个字段是否匹配
            If rs1("Field1") = rs2("Field2") Then
                ' 将匹配的记录添加到合并后的记录集中
                joinedRs.AddNew
                joinedRs("Field1") = rs1("Field1")
                joinedRs("Field2") = rs2("Field2")
                joinedRs.Update
            End If
            rs2.MoveNext
        Loop
        rs2.MoveFirst
        rs1.MoveNext
    Loop
    
    ' 关闭记录集和数据库连接
    rs1.Close
    rs2.Close
    joinedRs.Close
    db.Close
    
    ' 释放对象
    Set rs1 = Nothing
    Set rs2 = Nothing
    Set joinedRs = Nothing
    Set db = Nothing
End Sub