1:
Set rst4 = db.OpenRecordset („* von den tblDonations VORWÄHLEN, WO [StoreNo] =“ u. txtStoreNo u. „und [Datum] =“ u. txtDate u. "", dbOpenDynaset)