请帮忙改一下这个函数

想把红尘如烟老师这段在窗体中显示记录行号的函数运用在报表中，自己试着改没成功，还请老师帮助该一下，谢谢！

'函数名称:  GetLineNumber
'功能描述： 在窗体中显示记录的行号
'输入参数： DataForm     必需的，要显示行号的绑定数据窗体
'返回参数： 每一行记录的行号
'使用说明： 在绑定窗体中创建一个文本框，然后将控件来源设为：=GetLineNumber([Form])  即可。
'兼 容 性：
'作    者： 红尘如烟
'创建日期： 20010-11-26Report
'=========================================================================================
Function GetLineNumber(DataForm As Form)
On Error GoTo Err_GetLineNumber
    With DataForm.RecordsetClone
        .Bookmark = DataForm.Bookmark
        GetLineNumber = .AbsolutePosition + 1
    End With
Err_GetLineNumber:
End Function