数据库的“职工基本情况表”有“姓名”和“职称”等字段，要分别统计教授、副教授和其他人员的数量。请在空白处填入适当语句，使程序可以完成指定的功能。

Private Sub command5_Click( )

Dim db As DAO．Database

Dim rs As DAO．Recordset

Dim zc As DAO．Field

Dim Count 1 As Integer,Count2 As Integer,Count3 As Integer

Sett db=CurrentDb( )

Set rs=db．OpenRecordset(“职工基本情况表”)

Set zc=rs．Fields(“职称”)

Count1=0：Count2=0：Count3=0

Do While Not______

Select Case zc

Case Is=“教授”

Count1=Count1+1

Case Is=“副教授”

Count2=Count2+1

Case Else

Count3=Count3+1

End Select

______

Loop

rs．Close

se rs=Nothing

Set db=Nothing

MsgBox“教授：”&Count 1&“，副教授：”&Count2&“，其他：”&Count 3

End Sub