Попытка ввода записи в таблицу, используя кнопки и текстовые поля

Question

Я изо всех сил, чтобы получить этот кусок кода для работы в MS Access:

Private Sub BtnIssue_Click() 

Dim db As Database 
Dim rec As Recordset 

Set db = CurrentDb 
Set rec = db.OpenRecordset("Select * from Current_Rentals") 

rec.AddNew 
rec("Game") = Me.Text85 
rec("Game_Copy") = Me.Text77 
rec("Member") = Me.Combo111 
rec("Issue_Date") = Me.Text154 
rec.Update 

Set rec = Nothing 
Set db = Nothing 

End Sub 

Проблема заключается в том, что доступ жалуется на ошибки компиляции, «пользовательский тип не определен».

Answer 1

Dim rec as dao.recordset 
Set rec = db.openrecordset("current_rentals",dbopendynaset)