Dim objcmd As New OleDbCommand("SELECT Vereine.*, Stadien.* FROM Vereine INNER" & _
   "JOIN Stadien ON Vereine.ID = Stadien.ID WHERE Vereine.ID=" & sErgebnis, _
   objconn)
        Dim objDataReader As OleDbDataReader = objcmd.ExecuteReader
 
 
 
        objDataReader.Read()
 
 
 
 
        Dim lbo_Vereine As New ListBox
        Me.Controls.Add(lbo_Vereine)
 
        lbo_Vereine.Items.Add(objDataReader.Item("Verein"))
 
 
 
 
 
        TextBox2.Text = (objDataReader.Item("Stadionname").ToString())
 
 
 
 
        objDataReader.Close()
 
 
 
        objconn.Close()

Gru?

RollingStones