[AccessD] How to - get a count for a condition

I don't think you need the loop -- try a SELECT Count(*)

Susan H. 

...off the top and not tested

    Dim rs1 As Recordset
    Set rs1 = CurrentDb.OpenRecordset("SELECT * FROM <<TableName>> WHERE_
datLoginDate Between #<<BegDate>># and #<<EndDate>>#;", dbOpenDynaset,
dbReadOnly)
    With rs1
        .MoveLast
        Me!txtCount = .RecordCount
    End With