SqlDataReader

Dim tdReader As Data.SqlClient.SqlDataReader = DBGetDataReader("SELECT * FROM Tabelle")
mTabDatas.Clear()
'lies jetzt die Zeilen der Reihe nach ein und übernimm sie in die Liste
While tdReader .Read()
Dim c As New TabData'Hilfsobjekt
c.Feld1 = tdReader ("Feld1")
c.Feld2= tdReader ("Feld1")
c.NochNeSpalte= tdReader("NochNeSpalte")
'zur Liste zufügen
mTabDatas.Add(c)
End While
tdReader .Close()