GetLineNumber是红尘如烟老师编写的一个在数据窗体显示行号的函数，很实用。在使用过程中发现，对ADO记录集行号显示特别慢，改了一下，觉得过得去。

Function GetLineNumber(DataForm As Form)
        On Error Resume Next
    If IsADORecordset(DataForm.Recordset) Then
        GetLineNumber = DataForm.Bookmark(0) 
    Else
        With DataForm.RecordsetClone
            .Bookmark = DataForm.Bookmark
            GetLineNumber = .AbsolutePosition + 1
        End With
    End If
    DataForm.Repaint
End Function