数据库中有工资表，包括“姓名”、“工资”和“职称”等字段，现要对不同职称的职工增加工资，规定教授职称增加15%，副教授职称增加10%，其他人员增加5%。下列程序的功能是按照上述规定调整每位职工的工资，并显示所涨工资的总和。请在空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Command3_Click()
Dim ws As DAO.Workspaee
Dim db As DAO.Database
Dim rs As DAO.Reeordset
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 (14)
rs.Edit
Select Case ze
Case Is="教授"
rate=0.15
Case Is="副教授"
rate=0.1
Case Else
rate=0.05
End Select
sum=sum+gz * rate
gz=gz+gz * rate
(15)
rs.MoveNext
Loop
rs.Close
db.Close
Set rs=Nothing
Set db=Nothing
MsgBox"涨工资总计：" & sum
End Sub
