如何做两个表的双层循环运算？

----------------------

Dim myrst As ADODB.Recordset          ''' 定义数据表 外层 初表
Set myrst = New ADODB.Recordset


Dim myrstN As ADODB.Recordset          ''' 定义数据表 内层 详表
Set myrstN = New ADODB.Recordset


myrst.Open "SELECT tbl海流强度初表.初表ID, tbl海流强度初表.批次ID, tbl海流强度初表.时间, tbl海流强度初表.海流强度节, tbl海流强度初表.海流强度KM, tbl海流强度初表.本段时间, tbl海流强度初表.本段时间分钟, tbl海流强度初表.海流强度分差, tbl海流强度初表.前条记录时间 , tbl海流强度初表.本段海流强度差KM FROM tbl海流强度初表 WHERE (((tbl海流强度初表.批次ID) = " & [Forms]![frm全图]![txt批次ID] & ")) ORDER BY tbl海流强度初表.初表ID", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
    DoCmd.SetWarnings False
    Do Until myrst.EOF                   ''''  循环开始 ！！！!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1  进阶-明细计算 ！！！  外层
        DoCmd.Echo False, "正在外层计算，请等待！ 计数:" & J
        DoCmd.Hourglass True               ''' 漏斗 A
        '''' 开始计算  ‘’‘’
        var批次ID = myrst("批次ID")
        var初表ID = myrst("初表ID")
        var时间 = myrst("时间")
        var本段时间 = myrst("本段时间")
        var本段时间分钟 = myrst("本段时间分钟")
        var海流强度节 = myrst("海流强度节")
        var海流强度KM = myrst("海流强度KM")
        var海流强度分差 = myrst("海流强度分差")
     
        myrstN.Open "SELECT tbl海流数据详表.详表ID, tbl海流数据详表.批次ID, tbl海流数据详表.初表ID, tbl海流数据详表.时间, tbl海流数据详表.本段时间, tbl海流数据详表.本段时间分钟, tbl海流数据详表.海流强度节, tbl海流数据详表.海流强度KM, tbl海流数据详表.海流强度分差, tbl海流数据详表.海流力距离, tbl海流数据详表.正向前进距离, tbl海流数据详表.累计正向前进距离, tbl海流数据详表.累计时间 FROM tbl海流数据详表"
''''    myrstN.Open "SELECT tbl海流数据详表.* FROM tbl海流数据详表" , CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        
        Do Until myrstN.EOF                   ''''  循环开始 ！！！ 内层 ！！！
            DoCmd.Echo False, "正在内层计算，请等待！ 计数:" & N
            DoCmd.Hourglass True               ''' 漏斗 A
            '''' 开始计算  ‘’‘’
            myrstN.AddNew
            myrstN("批次ID") = var批次ID
            myrstN("初表ID") = var初表ID
            myrstN("时间") = var时间
            myrstN("本段时间") = var本段时间
            myrstN("本段时间分钟") = var本段时间分钟
            myrstN("海流强度节") = var海流强度节
            myrstN("海流强度KM") = var海流强度KM
            myrstN("海流强度分差") = var海流强度分差
        
        
            N = N + 1
            DoCmd.Hourglass False              ''' 漏斗 B
            If N > 3 Then
                Exit Do
            End If
        Loop                         ''''  内层循环尾部 ！！！
                
        J = J + 1
        DoCmd.Hourglass False              ''' 漏斗 B
        myrst.MoveNext      ''' 记录下移一个
    Loop                         ''''  循环尾部 ！！！


    DoCmd.SetWarnings True
    myrstN.Close              ''' 关闭库-内层
    myrst.Close              ''' 关闭库-外层