快速开发中为什么只能有前二个有效（第一条可以、条二条复制）下面几条都无法加入子窗体

为什么只能添加前面的二行，第二行还是重复添加,第三条记录无法复制，显示没有选定记录，急求解决！

Private Sub Image97_Click()
Dim i As Long
Dim sqlstr As String
If xh = 0 Then MsgBox "还没有选择记录, 不能添加.": Exit Sub
    For i = xh To xh + n - 1
        Me.sfrList.Form.SelTop = i
        sqlstr = "insert into 交接记录表temp(卷册名称) SELECT 卷册名称 FROM 交接记录表 WHERE 卷册名称='" & Me.sfrList.Form.[卷册名称] & " '"
        DoCmd.SetWarnings False              ' 取消系统提示
        DoCmd.RunSQL sqlstr            ' 运行查询
        DoCmd.SetWarnings True                ' 恢复系统提示
    Next
    Me.jjz.Requery
    xh = 0
    n = 0
End Sub


子窗体中
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
 xh = Me.SelTop
 n = Me.SelHeight
End Sub