VB. Net Datenbank Frage

die frage is net unkompliziert ...

ich habe eine Listbox in meinem Programm die folgendermaßen mit Daten aus der Datenbank befüllt wird:

....
Dim dsGruppen As New DataSet
Dim dtGruppen As DataTable
dsGruppen = mycon.get_dt("Select GNr,Bezeichnung from Gruppe", "GNr")
'die funktion mycon steht gleich darunter!
dtGruppen = dsGruppen.Tables("GNr")
lstGruppen.DataSource = dtGruppen
lstGruppen.ValueMember = "GNr"
lstGruppen.DisplayMember = "Bezeichnung"
.....

Public Function get_dt(ByVal sql As String, ByVal Primarykey As String) As DataSet
Dim da As New SqlDataAdapter(sql, conn)
Dim ds As New DataSet
Try
conn.Open()
da.Fill(ds, Primarykey)
conn.Close()
get_dt = ds
Catch ex As Exception
MessageBox.Show(ex.Message.ToString)
End Try
End Function

soweit klar ?!
jetzt kommt meine Frage:
wie kann ich einen weiteren 2-spaltigen Datensatz (GNr(=unsichtbar),Bezeichnung) an die Listbox anhängen??

für die Information würde ich töten!


unglaublich das so einen Banalität wie das hinzufügen einer Zeile in einer Listbox bei .Net so schwer geht!
in Access wärs soo einfach->
lstbox1.Rowsource = lstbox1.Rowsource & "2;neue Zeile;"

in C# bzw ADO.NET kann man so darueberiterieren ...
sollte etwas vergleichbares geben

foreach(DataRow r in article.Rows)

so hab jetzt für diese ******e 4 stunden in den Sand gesetzt
ma findet ja grundsetzlich alles bei google wenn ma nur lange genug sucht...

Private Sub CreateDataSet()
Dim i As Integer
mDataSet = New DataSet("newDataSet")

Dim mDTable As DataTable = New DataTable("Kunden")
Dim dcID As DataColumn = _
New DataColumn("ID", GetType(System.Int32))
Dim dcName As DataColumn = New DataColumn("Name")
mDTable.Columns.AddRange(New DataColumn() {dcID, dcName})
mDataSet.Tables.Add(mDTable)

Dim newRow As DataRow
For i = 0 To 6
newRow = mDTable.NewRow
newRow("ID") = i + 1
mDTable.Rows.Add(newRow)
Next

mDTable.Rows(0)("Name") = "Müller"
mDTable.Rows(1)("Name") = "Lehmann"
mDTable.Rows(2)("Name") = "Huber"
mDTable.Rows(3)("Name") = "Schulze"
mDTable.Rows(4)("Name") = "Meier"
mDTable.Rows(5)("Name") = "Mustermann"
mDTable.Rows(6)("Name") = "Schumann"
dgDataGrid.DataSource = mDTable
End Sub