学生情報管理システムの削除記録

ここ数日ずっと《学生の情報管理システム》をたたいて、確かに多くの問題にも出会って、その中で最も理解しにくい問題の1つはこの削除記録のコードで、あいにく大体3つのフォームの中ですべてこのようなコードがあります!本当に頭が痛いので、インターネットでたくさんの資料を調べて、やっと自分で少し理解しました.精通とは言えませんが、自分ではまあまあです.次は私の理解です.

Private Sub deleteCommand_Click()
    mybookmark = mrc.Bookmark    '            
    str2$ = MsgBox("        ？", vbOKCancel, "      ")
    If str2$ = vbOK Then
        mrc.MoveNext      '        
        If mrc.EOF Then  '             ，          ，           
            mrc.MoveFirst   '       ，           
            mybookmark = mrc.Bookmark '       ，mrc.bookmark   ，mybookmark    
            mrc.MoveLast '       ，     
            mrc.Delete
            mrc.Bookmark = mybookmark  '             ，       
            Call viewData '        （        ）
        Else      '          
            mybookmark = mrc.Bookmark  ' mrc.movenext   
            mrc.MovePrevious        '        
            mrc.Delete        '    
            mrc.Bookmark = mybookmark '              
            Call viewData '           
        End If
    Else       
        mrc.Bookmark = mybookmark
        Call viewData
    End If
 End Sub

これは私の少しの理解にすぎません.間違ったところは誰かが修正を指導してほしいです.