Ошибка типа "type mismatch" в MS_access - VB

Формулировка задачи:

Добрый день!
Мне было задано задания:

Выполнив все как указано в задаче + написав код работы у меня вылазит ошибка

"type mismatch"

Буду благороден любой помощи очень уж нужно мне его доделать сегодня....
Готов отблагодарить финансово))
Правда не очень много))

Решение задачи: «Ошибка типа "type mismatch" в MS_access»

textual
                            Листинг программы 
                        

                            Set lst = dbs.OpenRecordset("Лицевой счет")
Set nst = dbs.OpenRecordset("Наряд")
Set nast = dbs.OpenRecordset("Начисления")
Set rst = dbs.OpenRecordset("Расценки")
rst.MoveFirst
Do Until lst.EOF
If t = lst![Табельный номер] Then
lst.Edit
lst![Разряд] = lst![Разряд] + r
nast![ФИО] = f
nast.Update
nst.AddNew
nst![Цех] = с
nst![Табельный номер] = t
nst![ФИО] = f
nst![Разряд] = r
nst![Начисленно за год (руб)] = n
nst.Update
End If
rst.MoveNext
Loop

                        