(1):
Set rst4 = db.OpenRecordset ("WYBIÓRKA * OD tblDonations DOKĄD [StoreNo] =" & txtStoreNo & "I [Data] =" & txtDate & "", dbOpenDynaset)