Dim sErgebnis As String = txt_Suche.Text
 
Dim objcmd As New OleDbCommand("SELECT * FROM Vereine WHERE ID=" & sErgebnis, _
  objconn)
 
        Dim objDataReader As OleDbDataReader = objcmd.ExecuteReader
 
        objDataReader.Read()
 
        TextBox2.Text = (objDataReader.Item("Stadionname"))

Gru?

RollingStones