Ошибка 424 при работе с БД. Исправить код

Dim db As Database
Set db = CurrentDb
Dim rstSells As DAO.Recordset
Dim rstPhone As DAO.Recordset
Dim rstCheck As DAO.Recordset
Dim rstSellPhone As DAO.Recordset
 
Set rstSellPhone = db.OpenRecordset("Проданныетелефоны")
Set rstPhone = db.OpenRecordset("телефоны")
Set rstSells = db.OpenRecordset("продавцы")
Set rstChek = db.OpenRecordset("чеки")
 
Dim strSells As String
Dim strPhone As String
Dim lCodeSl, lCodeSlShip, lCodePh, lCodePhShip As Long
 
With rstSellPhone
If Not .EOF Then
.MoveFirst
While Not .EOF
.Delete
.MoveFirst
Wend
End If
End With
 
With rstSells
.MoveFirst
While Not .EOF
lCodeSl = .Fields("кодпродавца")
strSells = .Fields("ФИО")
strPhone = ""
With rstChec
.MoveFirst
While Not .EOF
lCodeSlShip = .Fields("кодпродавца")
If lCodeSl = lCodeSlShip Then
lCodePhShip = .Fields("кодтелефона")
With rstPhone
.MoveFirst
Do While Not .EOF
lCodePhone = .Fields("кодтелефона")
If lCodePh = lCodePhShip Then
strPhone = strPhone + .Fields("модель") + ", "
Exit Do
End If
.MoveNext
Loop
End With
 
End If
.MoveNext
Wend
If strPhone <> "" Then
With rstSellPhone
.AddNew
.Fields("ФИО") = strSells
strPhone = Mid(strPhone, 1, InStrRev(strPhone, ",") - 1)
.Fields("модель") = strPhone
.Update
End With
 
End If
End With
 
.MoveNext
Wend
End With
 
rstSells.Close
rstPhone.Close
rstCheck.Close
rstSellPhone.Close