非绑定窗体中记录集不正确

主窗体下有两个子窗体_sfrdetail和Sfreditdetail,这两个子窗体均以临时表为数据源，这两个子窗体放在选项卡中，在主窗体的加载事件中写入如下代码

  

 On Error GoTo ErrorHandler
    Dim strsql        As String
    Dim cnn           As Object 'ADODB.Connection
    Dim rst           As Object 'ADODB.Recordset
    Dim rstTmp        As Object 'DAO.Recordset

    ApplyTheme Me
    CurrentDb.Execute "DELETE FROM [TMP_tblAppraisal]"
    If IsNull(Me.OpenArgs) Then
        Me.DataEntry = True
    End If
    If Me.DataEntry Then
        Me.sfrDetail.Requery
        Exit Sub
    End If
    Me.btnSave.Enabled = Me.AllowEdits

    Set cnn = CurrentProject.Connection

    strsql = "SELECT * FROM [tblContract] WHERE [xsID]=" & Nz(Me.OpenArgs, 0)
    Set rst = OpenADORecordset(strsql, , cnn)
    Me![xsID] = rst![xsID]
    Me![salesCode] = rst![salesCode]
    Me![CustomerID] = rst![CustomerID]
    Me![Customer] = rst![Customer]
    Me![State] = rst![State]
   rst.Close

    strsql = "SELECT * FROM [tblAppraisal] WHERE [xsID]=" & Nz(Me![xsID], 0)
    Set rst = OpenADORecordset(strsql, , cnn)
    Set rstTmp = CurrentDb.OpenRecordset("TMP_tblAppraisal")
    Do Until rst.EOF
        rstTmp.AddNew
        rstTmp![AppraisalID] = rst![AppraisalID]
        rstTmp![xsID] = rst![xsID]
        rstTmp![AppraisalCode] = rst![AppraisalCode]
     
        rstTmp.Update
        rst.MoveNext
    Loop
    rst.Close
    rstTmp.Close
    Me.sfrDetail.Requery

 

strsql = "SELECT * FROM [tblContractItem] WHERE [xsID]=" & Nz(Me![xsID], 0)
    Set rst = OpenADORecordset(strsql, , cnn)
    Set rstTmp = CurrentDb.OpenRecordset("TMP_tblContractItem")
    Do Until rst.EOF
        rstTmp.AddNew
        rstTmp![xsmxID] = rst![xsmxID]
        rstTmp![xsID] = rst![xsID]
        rstTmp![productID] = rst![productID]
               rstTmp.Update
        rst.MoveNext
    Loop
    rst.Close
    rstTmp.Close
    Me.sfrEditDetail.Requery
 
ExitHere:
    Set rst = Nothing
    Set cnn = Nothing
    Set rstTmp = Nothing
    Exit Sub
运行窗体发现子窗体sfreditDetail中记录集并不仅仅是当前XSid的记录，还包括其他订单的明细记录。代码错在哪里呢？
请各位帮我看看问题出在哪里？谢谢！