.. radice jos bolje ako malo modifikujes ovo
Code:
Set R = CurrentDb.OpenRecordset("SELECT * FROM [tblProdaja]")
tako da izgleda ovako:
Code:
Set R = CurrentDb.OpenRecordset("SELECT * FROM [tblProdaja] WHERE 1=0")
Posto radis Rs.Add, dodajes novi rekord, pa ti ne treba da vuces celu tabelu. WHERE 1=0 povlaci tacno 0 (nula) rekorda, a ipak otvara rekordset.