填空题

数据库中有工资表，包括“姓名”、“工资”和“职称”等字段，现要对不同职称的职工增加工资，规定教授职称增加15%，副教授职称增加10%，其他人员增加5%。下列程序的功能是按照上述规定调整每位职工的工资，并显示所涨工资的总和。请在空白处填入适当的语句，使程序可以完成指定的功能。
PrivateSubCommand5_Click（）
DimwsasDAO.Workspace
DimdbasDAO.Database
DimrsasDAO.Recordset
DimgzasDAO.Field
DimzcasDAO.Field
DimsumasCurrency
DimrateasSingle
Setdb＝CurrentDb()
Setrs＝db.OpenRecordset（"工资表"）
Setgz＝rs.Fields（"工资"）
SetZC＝rs.Fields（"职称"）
Sum＝0
DoWhileNot（？）
rs.Edit
Select Case zc
Case Is＝"教授"
rate＝0.15
CaseIs＝"副教授"
rate＝0.1
Case else
rate＝0.05
End Select
Sum＝sum＋gz*rate
gz＝gz＋gz*rate
（？）
rs.MoveNext
Loop
rs.ClOse
db.Close
Setrs＝Nothing
setdb＝Nothing
MsgBcx"涨工资总计："&sum
EndSub