数据库中有工资表，包括“姓名”、“工资”、“职称”，现要对不同职称的职工增加工资，规定教授职称增加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 (14)
rs.Edit
Select Case zc
Case Is="教授"
rate=0.15
Case Is="副教授"
rate=01
Case else
rate=0.05
End Select
sum=sum+gz*rate
gz=gz+gz*rate
(15)
rs.MoveNext
Loop
rs.Close
db.Close
setrs=Nothing
setdb=Nothing
MsgBox "涨工资总计:"＆sum
End Sub
