Dim strSQL As String
Dim rs As DAO.Recordset

strSQL = "KORISNIK"
strSQL="
	SELECT * from Qzaperiod1
	WHERE datum 
		BETWEEN DATEVALUE('" & pocetni & "') AND DATEVALUE('" & krajnji & "')
	"

Set rs = CurrentDb.OpenRecordset(strSQL)

WITH rs

    IF NOT .BOF AND NOT .EOF Then 'provjerimo dali uopce ima podataka u bazi
	'dobro je pomaknuti se na kraj baze pa onda opet na pocetak
	'nije neophodno ali ponekad zna pomoci
	.MoveLast
        	.MoveFirst
        
	WHILE (Not .EOF)
'WHILE LOOP petlja u kojoj kada dodemo do kraja baze (EOF)izlazimo iz petlje
	Debug.Print rs.Fields("imeKolone1") & " " & rs.Fields("imeKolone2")
' mozes podatke umjesto u msgbox ispisivati u debug (immediate window)
            .MoveNext
'petlja nastavlja dalje i ispisuje u immedia prozoru, mozemo zaustaviti sa break point ili CTRL+Break
	WEND
    END IF
    .close
END WITH