来个大虾帮我注释下这段程序

Private Sub CmdMakeCJSheet_Click()
On Error GoTo Err_CmdMakeCJSheet_Click
Dim Rs1 As ADODB.Recordset
Dim Rs2 As ADODB.Recordset
Dim StrTemp As String
Dim iTemp As Integer
    Set Rs1 = New ADODB.Recordset
    StrTemp = "Select * From 成绩表"
    Rs1.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    Set Rs2 = New ADODB.Recordset
    StrTemp = "Select * From 选课表"
    Rs2.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    If Rs1.RecordCount >= 1 Then
        Rs1.MoveFirst
        For iTemp = 0 To Rs1.RecordCount - 1
            Rs1.Delete 1
            Rs1.Update
            Rs1.MoveNext
        Next iTemp
        If Rs2.RecordCount >= 1 Then
            For iTemp = 0 To Rs2.RecordCount - 1
                Rs1.AddNew
                Rs1("学号") = Rs2("学号")
                Rs1("课程编号") = Rs2("课程编号")
                Rs1.Update
                Rs2.MoveNext
            Next iTemp
        Else
            Exit Sub
        End If
    Else
        If Rs2.RecordCount >= 1 Then
            For iTemp = 0 To Rs2.RecordCount - 1
                Rs1.AddNew
                Rs1("学号") = Rs2("学号")
                Rs1("课程编号") = Rs2("课程编号")
                Rs1.Update
                Rs2.MoveNext
            Next iTemp
        Else
            Exit Sub
        End If
    End If
    Me![InputAchFrm].Requery
    Me![成绩].Locked = False
    MsgBox "生成空成绩单成功，并且可以输入成绩！", vbOKOnly, "生成成绩单完成"
   Me![成绩].Locked = False
    Set Rs1 = Nothing
    Set Rs2 = Nothing
Exit_CmdMakeCJSheet_Click:
    Exit Sub
Err_CmdMakeCJSheet_Click:
    MsgBox Err.Description
    Resume Exit_CmdMakeCJSheet_Click
End Sub