Access/VBA/Excel-13-嵌套查询

Sub test()        
    Dim cnn As New ADODB.Connection '连接
    Dim rs As New ADODB.Recordset        
    Dim SQL As String
    Dim tblName        
    Dim dbAddr

    dbAddr = ThisWorkbook.Path & "\学生信息.accdb"
    tbl1Name = "学生信息表"
    tbl2Name = "成绩表"

    '连接数据库
    With cnn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .Open "Data Source=" & dbAddr        
    End With

    op1Filds = "学号"
    search1C = "姓名 in ('张三','李四')"
    SQL1 = "Select " & op1Filds & " from " & tbl1Name & " where (" & search1C & ")"

    op2Filds = "学号,年级,数学成绩"
    search2C = "学号 in (" & SQL1 & ")"
    SQL2 = "Select " & op2Filds & " from " & tbl2Name & " where (" & search2C & ") order by 学号 asc,年级 desc"

    Set rs = cnn.Execute(SQL2)            
    Dim sht        
    Dim fildNum        
    Set sht = ThisWorkbook.Worksheets("示例")
    sht.Cells.ClearContents

    fildNum = rs.Fields.Count        
    For j = 0 To fildNum - 1 Step 1
        fildName = rs.Fields(j).Name
        sht.Cells(1, j + 1) = fildName        
    Next j

    sht.Cells(2, 1).CopyFromRecordset rs

    cnn.Close        
    Set rs = Nothing
    Set cnn = NothingEnd Sub