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 = "Test"

Gru?

RollingStones