数据库中有工资表，包括“姓名”、“工资”和“职称”等字段，现在对不同职称的职工增加工

问题：

数据库中有工资表，包括“姓名”、“工资”和“职称”等字段，现在对不同职称的职工增加工资，规定教授职称增加15%，副教授职称增加10%，其他人员增加5%，下列程序的功能是按照上述规定调整每位职工的工资，并显示所涨工资的总和。请在空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Command5_Click()
Dim ws As DAO．Workspace
Dim db AS DAO．Database
Dim rs As DAO．Recordset
Dim gz As DAO．Field
Dim ZC As DAO．Field
Dim sum As Currency
Dim rate As Single
Set db=CurrentDb()
Set rs=db．OpenRecordset(’工资表’)
Set gz=rs．Fields(’工资’)
Set zc=rs．Fields(’职称’)
sum=0
Do While Not______
rs．Edit
Select Case zc
Case Is=’教授’
rate=0.15
Case Is=’副教授’
rate=0.1
Case EIse
rate=0.05
End Select
sum=sum+gz*rate
gz=gz+gz*rate
______
rs．MoveNext
Loop
rs．Close
db．Close
Set rs=Nothing
Set db=Nothing
MsgBox’涨工资总计：’&sum
End Sub