1:
Set rst4 = db.OpenRecordset("SELECT * FROM tblDonations WHERE [StoreNo] = " & txtStoreNo & " And [Date] = " & txtDate & "", dbOpenDynaset)