在Access窗体上的动态记录集上获取当前记录

这是公共功能代码:

Private Function ABOnly()
Dim pSQL As String

If Me.tgABRec = True Then
    Me.tgABRec.Caption = "AB Recs Only"
    Me.tgABRec.BackColor = RGB(221, 217, 195)
    Me.tgABRec.HoverColor = RGB(221, 217, 195)
    pSQL = "SELECT * From tblAllRecs WHERE ABRecs = -1"
    Me.txtCurrRec = CStr(Me.CurrentRecord) & " of " & _
    DCount("ID", "tblAllRecs", "ABRecs = -1") & " Records"
Else
    Me.tgABRec.Caption = "ALL RECORDS SHOWING"
    Me.tgABRec.BackColor = RGB(221, 217, 195)
    Me.tgABRec.HoverColor = RGB(221, 217, 195)
    pSQL = "SELECT * From tblAllRecs"
    Me.txtCurrRec = CStr(Me.CurrentRecord) & " of " & _
    DCount("ID", "tblAllRecs") & " Records"
End If

End Function

CStr(Me.CurrentRecord)似乎无法正确地处理动态SQL。有人知道我怎样才能让它正常工作吗?