Dim sErgebnis As String = txt_Suche.Text
 
 
 
 
 
 
        Dim objconn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" _
          & _
                          "User ID=Admin;" & _
                          "Data Source=C:\Dokumente und Einstellungen\Philipp" & _
                          "Hohmann\Eigene Dateien\Fussball.mdb")
 
 
        objconn.Open()
 
 
 
 
 
        Dim objcmd As New OleDbCommand("SELECT Vereine.*, Stadien.* FROM" & _
          "Vereine INNER JOIN Stadien ON Vereine.ID = Stadien.ID WHERE" & _
          "Vereine.Verein LIKE @Zuname", objconn)
 
 
 
       objcmd.Parameters.AddWithValue("@Zuname", sErgebnis+"%")
 
 
 
        Dim objDataReader As OleDbDataReader = objcmd.ExecuteReader()
 
 
 
 
 
 
        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