有个2010做成的工具，2003无法查看源代码，一打开ACCESS2003就重启，麻烦大家帮了看看

点击下载此附件

有个2010做成的工具，2003无法查看源代码，一打开ACCESS2003就重启，麻烦大家帮了看看，希望能帮了改一下。

源代码如下：

Option Compare Database

Private Sub Command0_Click()
'生成分组编号
    Dim lngN As Long
    Dim strNO As String
    Dim rst As Object

    Me.frmChild.Form.OrderBy = "商品编码 , 时间段"   :按商品编码，时间段排序
    Me.frmChild.Form.OrderByOn = True　　　　　　　　：:按商品编码，时间段排序

    Me.Painting = False　　　　　　　　　　　　　　　：不打印页面。
    Set rst = Me.frmChild.Form.Recordset　　　　　　：给rst对象赋值
    rst.MoveFirst　　　　　　　　　　　　　　　　　：把游标指向　rst 的第一条记录
    Do Until rst.EOF　　　　　　　　　　　　　　　：
        rst.Edit
        If rst!商品编码 <> strNO Then
            lngN = 1
            strNO = rst!商品编码
        Else
            lngN = lngN + 1
        End If
        rst!出现次数 = lngN
        rst.Update
        rst.MoveNext
    Loop
    rst.MoveFirst
    Set rst = Nothing

    Me.Painting = True

End Sub

Private Sub Command13_Click()

End Sub

Private Sub Command5_Click()
'清空编号
    CurrentDb.Execute "UPDATE sheet1 SET 出现次数=Null"
    Me.frmChild.Form.Refresh
End Sub

Private Sub Form_Load()

End Sub

Private Sub frmChild_Enter()

End Sub

Private Sub 主体_Click()

End Sub