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 '@Zuname" & _
  "*'", objconn)
'Parameter definieren
objcmd.Parameters.Add("@Zuname", OleDbType.VarChar, 40)
'Parameter füllen
objcmd.Parameters("@Zuname").Value = sErgebnis
 
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() 
End Sub

 
Dim objcmd As New OleDbCommand("SELECT Vereine.*, Stadien.* FROM Vereine INNER" & _
  "JOIN Stadien ON Vereine.ID = Stadien.ID WHERE Vereine.Verein LIKE @Zuname", _
  objconn)
'Parameter definieren
objcmd.Parameters.AddWithValue("@Zuname", sErgebnis+"%")