VBA查询ACCESS满足条件的个数？

这是一个公司的通讯录，用VBA+ACCESS做成的，下面这段代码是加载窗体时的代码，
我想在最后加上一句 msgbox “公司党员总是为？个”
琢磨了很久，也想不出查找党员总数的代码，希望大家能帮个忙？

Private Sub UserForm_Initialize()
Dim SQL As String
Dim i As Long
mydata = ThisWorkbook.Path & "\通讯录.mdb" '指定数据库
mytable = "人员信息" '指定数据表
myArray = Array("工号", "姓名", "年龄", "政治面貌", "身份证号码", "联系电话", "手机短号", "岗位", "职务", "入职日期", "相片")
'建立与数据库的连接
Set Cnn = New ADODB.Connection
With Cnn
.Provider = "microsoft.jet.oledb.4.0"
.Open mydata
End With

。。。。。。到这里代码就不会写了(这里应为查询党员总数的代码)
msgbox “公司[党员]人数为 ？个”

End Sub
最上面还有四行代码，忘了写，现在加上：
Dim Cnn As ADODB.Connection
Dim mydata As String
Dim mytable As String
Dim myArray As Variant

楼下大哥，你这段代码是错误的，我试了十几次都不行

我自己搞好了，网上找了好多资料才搞好，唉

相关了解……