ByteMizer,
Problem solved. I had the following code after the SQL statement:
On Error Resume Next
DoCmd.Close acQuery, "qryUsersRemaining"
DoCmd.DeleteObject acQuery, qryUsersRemaining
Set qdf = dbs.CreateQueryDef("qryUsersRemaining", strSQL)
DoCmd.OpenQuery ("qryUsersRemaining")
I did...