Может переменные некоректно обрабатываются. Решается проблема так
Set db = CurrentDb Set rs = db.OpenRecordset(...