For I = 1 To 30
      imeobj = "command" + Trim(Str(I))
      Forms("test").Controls(imeobj).Visible = False
 Next I
 
Dim d As Database
Set d = CurrentDb
Dim r As Recordset
Dim sql As String
 sql = "SELECT * FROM tblArtikli WHERE (((tblArtikli.Grupa_Artikal)=" & GrupaId & "));"
 Set r = d.OpenRecordset(sql)
  brdugme = 1
 
Do While Not r.EOF
       
      If IsNull(r.Fields("SlikaArtikal")) Then
      imeobj = "command" + Trim(Str(brdugme))
      Artikal(brdugme) = r.Fields("ID_Artikal")
      Forms("test").Controls(imeobj).Visible = True
      Forms("test").Controls(imeobj).Picture = ""
      Forms("test").Controls(imeobj).Caption = r.Fields("Artikal_Ime")
      r.MoveNext
      brdugme = brdugme + 1
      Else
      imeobj = "command" + Trim(Str(brdugme))
      Artikal(brdugme) = r.Fields("ID_Artikal")
      Forms("test").Controls(imeobj).Visible = True
      Forms("test").Controls(imeobj).Caption = r.Fields("Artikal_Ime")
      Forms("test").Controls(imeobj).PictureData = r.Fields("SlikaArtikal")
      r.MoveNext
      brdugme = brdugme + 1
   
    
    End If
    If brdugme > 30 Then
      Exit Sub
    End If
    
  If r.EOF() Then
  
     Exit Sub
  End If
  
   
 Loop

r.Close
 
Set d = Nothing