Public Class CMatchCmbDaten
    '//Datenfelder
    Public m_Datum As Date
    Public m_Firma As String
    Public m_Artikel As String
    Public m_Preis As Double
    Public m_Menge As String
    Public m_Spec As String
    Public m_Lieferzeit As String
    '//überladener Konstruktor
    Public Sub New(ByVal Datum As Date, ByVal Firma As String, ByVal Artikel As _
      String, ByVal Preis As Double, ByVal Menge As String, ByVal Spec As _
      String, ByVal Lieferzeit As String)
        Me.m_Datum = Datum
        Me.m_Firma = Firma
        Me.m_Artikel = Artikel
        Me.m_Preis = Preis
        Me.m_Menge = Menge
        Me.m_Spec = Spec
        Me.m_Lieferzeit = Lieferzeit
    End Sub
End Class

 For i As Integer = 0 To dv.Count - 1
                al.Add(New CMatchCmbDaten(CDate(dv(i).Item(2)), dv(i).Item(3), _
                  dv(i).Item(4), CDbl(dv(i).Item(6)).ToString("C"), dv(i).Item( _
                  5), dv(i).Item(7), dv(i).Item(8)))
            Next