Ошибка времени выполнения заявления VBA SQL 91

Question

Я продолжаю получать переменную объекта времени выполнения 91 или с не заданной переменной блока. У меня есть rs и strQuery как глобальные переменные, это всего лишь скетч кода, а не все. Может ли кто-нибудь помочь мне с устранением неполадок?

Dim strQuery 
Global db As DAO.Database 
Global rs As DAO.Recordset 
strQuery = "SELECT courses.[CourseCode] as CODE, " & _ 
      "courses.[CourseName] as NAME " & _ 
      "FROM courses;" 
Set rs = db.OpenRecordset(strQuery) 'error here 

Answer 1

db не указывает ни на что - вам нужно что-то назначить.

E.g.

Set db = CurrentDb()