怎么在另一个窗体中显示记录至下一条？

Option Compare Database
Option Explicit
Private Sub Form_Load()
    On Error GoTo ErrorHandler
   Dim strsql        As String
   Dim cnn           As Object 'ADODB.Connection
   Dim rst           As Object 'ADODB.Recordset
    ApplyTheme Me
    If IsNull(Me.OpenArgs) Then
        Me.DataEntry = True
    End If
    If Me.DataEntry Then
        Exit Sub
    End If
    Me.btnSave.Enabled = Me.AllowEdits
    Set cnn = CurrentProject.Connection
        strsql = "SELECT * FROM [图纸入库表] WHERE [卷册名称]=" & SQLText(Me.OpenArgs)
    Set rst = OpenADORecordset(strsql, , cnn)
    Me![序号] = rst![序号]
    Me![卷册名称] = rst![卷册名称]
   Me![卷册号] = rst![卷册号]
   Me![自然页数] = rst![自然页数]
   Me![所到份数] = rst![所到份数]
   Me![版次] = rst![版次]
   Me![所属专业] = rst![所属专业]
   Me![所属区域] = rst![所属区域]
   Me![入库日期] = rst![入库日期]
   Me![入库人] = rst![入库人]
   Me![是否出库] = rst![是否出库]
     rst.Close
ExitHere:
    Set rst = Nothing
   Set cnn = Nothing
   Exit Sub


ErrorHandler:
    RDPErrorHandler Me.Name & ": Sub Form_Load()"
    Resume ExitHere
End Sub


Private Sub btnSave_Click()
    On Error GoTo ErrorHandler
    Dim strWhere      As String
    Dim strsql        As String
    Dim cnn           As Object 'ADODB.Connection
    Dim rst           As Object 'ADODB.Recordset


    If Not CheckRequired(Me) Then Exit Sub
    If Not CheckTextLength(Me) Then Exit Sub


    Set cnn = CurrentProject.Connection


    strsql = "SELECT * FROM [图纸入库表] WHERE [卷册名称]=" & SQLText(Me![卷册名称])
    Set rst = OpenADORecordset(strsql, adLockOptimistic, cnn)
    If rst.EOF Then
        rst.AddNew
    End If
    rst![序号] = Me![序号]
    rst![卷册名称] = Me![卷册名称]
    rst![卷册号] = Me![卷册号]
    rst![自然页数] = Me![自然页数]
    rst![所到份数] = Me![所到份数]
    rst![版次] = Me![版次]
    rst![所属专业] = Me![所属专业]
    rst![所属区域] = Me![所属区域]
    rst![入库日期] = Me![入库日期]
    rst![入库人] = Me![入库人]
    rst![是否出库] = Me![是否出库]
    rst.Update
    rst.Close
    Form_frm图纸入库.RefreshDataList
    MsgBox "保存成功！", vbInformation
ExitHere:
    Set rst = Nothing
    Set cnn = Nothing
    Exit Sub
ErrorHandler:
    RDPErrorHandler Me.Name & ": Sub btnSave_Click()"
    Resume ExitHere
End Sub
Private Sub btnCancel_Click()
DoCmd.Close acForm, "frm图纸入库_editb"
End Sub
Private Sub Command62_Click()
On Error GoTo Err_Command62_Click
    If Forms!frm图纸入库!sfrList.Form.CurrentRecord > 1 Then
        Forms!frm图纸入库!sfrList.Form.Recordset.MovePrevious
        Form_Load
    End If
Exit_Command62_Click:
    Exit Sub
Err_Command62_Click:
    MsgBox Err.Description
    Resume Exit_Command62_Click
    
End Sub
Private Sub Command63_Click()
On Error GoTo Err_Command63_Click
 If Forms!frm图纸入库!sfrList.Form.CurrentRecord < Forms!frm图纸入库!sfrList.Form.Recordset.RecordCount Then
        Forms!frm图纸入库!sfrList.Form.Recordset.MoveNext
    End If
Exit_Command63_Click:
    Exit Sub
Err_Command63_Click:
    MsgBox Err.Description
    Resume Exit_Command63_Click   
End Sub