Private Sub cmd_Suche_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmd_Suche.Click
 
 
        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 @Eingabe", objconn)
 
        'Parameter hinzufügen
        objcmd.Parameters.AddWithValue("@Eingabe", sErgebnis + "%")
 
 
 
        Dim dr As OleDbDataReader = objcmd.ExecuteReader()
 
 
 
        'Listboxblock
        Dim lbo_Vereine As New ListBox
        Me.Controls.Add(lbo_Vereine)
        'End Listboxblock
 
 
        'Listbox füllen
        Do While dr.Read()
            lbo_Vereine.Items.Add(dr("Verein"))
        Loop
        'End Listbox füllen
 
 
 
        dr.Close()
        objconn.Close()
 
 
    End Sub

Gru?

RollingStones