Dim i
        i = 0
        Do While Not rsStavki.EOF
           Col2.ValueItems.Add (CreateObject("TrueOleDBGrid60.ValueItem"))
           If IsNull(rsStavki!Artikal_Ime) Then
              Col2.ValueItems.Item(i).Value = ""
            Else
              Col2.ValueItems.Item(i).Value = rsStavki!Artikal_Ime
            End If
              i = i + 1
              rsStavki.MoveNext
         Loop