Ошибка времени выполнения "91" VBA-доступ при добавлении записи в таблицу

Question

У меня есть таблица, куда я хочу добавить записи, используя функцию ниже. Но когда код выполняется, он выдает Run-Time Error '91'

Я искал все форумы, но не могу решить это. Ниже мой код:

Private Sub CmdCreateLoan_Click()
Dim tempinstal As Integer
Dim tempdate As Date
Dim StrSQL As String
Dim dbs As Database

При ошибке GoTo 0

If Me.Loan_Status = 10 Then
MsgBox "Loan Successfully Created", , "Loan Created"
Me.Loan_Status = 9

DoCmd.Save

DoCmd.OpenQuery "que_addinstalment", acViewNormal

tempinstal = Me.No_Instalments - 1
tempdate = DateAdd("m", 1, Me.First_Payment_Date)

Do While tempinstal > 0
Set dbs = CurrentDb

dbs.Execute " INSERT INTO [tblinstalments] " _
    & "(Loan_ID,Instalment_Date,      Total_Instalment,Capital_Instalment,Interest_Instalment,Next_Balance) VALUES " _
    & "('loan_ID','tempdate','instalment','Capital_Instalment','interest_instalment','next_Balance');"

dbs.Close
Set dbs = Nothing


tempinstal = tempinstal - 1
tempdate = DateAdd("m", 1, tempdate)
Loop

DoCmd.Close

Else

MsgBox "Loan Contract not Printed. Please Print before proceeding", , "Print  Loan Contract"

End If

End Sub