下列子过程的功能是：当前数据库文件中“教师表”中的字段有“职称”、“基本工资”、“总工资”。职称为“教授”的“总工资”=“基本工资”+1000；“副教授”的“总工资”=“基本工资”+500，请在程序空白的地方填写适当的语句，使程序实现所需的功能。
Private Sub SetAgePlus1_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sa As DAO.Field
Dim tz As DAO.Field
Set db=CurrentDb()
Set rs=db.OpenRecordset("教师表")
Set gz=rs.Fields("基本工资")
Set sum=rs.Fields("总工资")
Do While Not rs. (14)
rs.Edit
If 职称="教授"
sum= (15)
Else If 职称="副教授"
sum=gz+500
rs.Update
rs.MoveNext
Loop
rs.Close
db.Close
Set rs=Nothing
Set db=Nothing
End Sub