请教：子窗体自动编号代码修改

求助目的：   修改（或用新）代码，序号自动填充

窗体现状：   用平台生成frm入库单窗体和frm入库单_Edit、frm入库单_Edit_Detail

需求：         在新增入库明细时，“序号”按记录个数，自动生成明细序号——省去人工录入的操作。

                  frm入库单_Edit_Detail中“序号”挨着的是“五金id"组合框，它更新后，“序号”自动按顺序填充。

现在的效果：需要在录入第1条明细时，在“序号”文本框中，输入1，下面的可以自动+1。

现在的代码：在frm入库单_Edit_Detail的成为当前事件中，我借用了网上的一段代码，如下

Private Sub Form_Current()
'2015-3-3增加
'成为当前，序号+1
On Error Resume Next
    Dim rstClone As DAO.Recordset
    Set rstClone = Me.RecordsetClone
    If Me.NewRecord = True Then
        rstClone.MoveLast
        Me.XH.DefaultValue = rstClone!XH + 1
    End If
    rstClone.Close
    Set rstClone = Nothing

End Sub

本人VBA盲人一个，谢谢大家了！！！