1:
Set rst4 = db.OpenRecordset („SELECTEER * UIT tblDonations WAAR [StoreNo] =“ & txtStoreNo & „en [Datum] =“ & txtDate & "", dbOpenDynaset)