filling supplier name from collection

[firoz.raj]

can anybody tell me how should i fill supplier name .in a list view using collection.here is the code what i have written.any help would be highly app
reciated.

Private Sub Command1_Click()
Dim Item As ListItem
Dim supp As Supplier      'object for class
Set supp = New Supplier
Set supp = m_Suppliers.Item(supp.Key) 'm_suppliers is a object for collection
 If Not supp Is Nothing Then
    For Each supp In m_Suppliers 'we check each supplier in a collection
      Set Item = ListView1.ListItems.Add(supp)
      Item.SubItems(1) = supp.SupName             
      Item.SubItems(2) = supp.Supid
      Next
    End If
End Sub