Forms :: Count Multiple Values In Subform

I have a form and subform. I need to -

1) show the number of records in the subform on the main form
2) count the number of records in the subform where a value [Public] is True
3) count the number of records in the subform where another value [Analyst] is True.

I can achieve the first two by using the following VBA on the Main form current event -

Quote:

Private Sub Form_Current()
Dim rst As DAO.Recordset
Dim lngCount As Long

[Code]....

when i try to get number 3 done I get the same value as for [Public] (using lngCount for both...not surprising really!)

how i can get a count done for [Analyst] = True in the same event?