VBA SQL语句运行时错误91

Question

我一直得到运行时错误91对象变量或未设置块变量。 我有rs和strQuery作为全局变量，这只是代码的snipet而不是整个事物。有人可以帮我排除故障吗？

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()