What do you expect the "display = i" and "Requery" lines to accomplish?
Need the rs! qualifier in front of portalsend field reference otherwise it's just an undeclared variable and so defaults to variant type although the output should then be 0, not sure why you get 3.
This works for me:
Code:
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM consolidatorlisttable;")
Dim i As Integer
i = 0
rs.MoveFirst
Do While Not rs.EOF
If rs!portalsend = True Then i = i + 1
rs.MoveNext
Loop
Debug.Print i
rs.Close
Set rs = Nothing
Should use CODE tags when posting code.