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没有指向任何东西-您需要将其分配给某个东西。

例如

Set db = CurrentDb()