Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("qryKasa_Artikli_Top")
While Not rs.EOF
  MsgBox rs.Fields(1)
  rs.MoveNext
Wend
Set rs = Nothing