Dim comm As New Command
 comm.CommandText = "select ap.Name, ap.Vorname, a.Firma " & _
    "from tbl_Ansprechpartner ap, tbl_Herrsteller a " & _
    "where a.Herrsteller_ID =" & Text2.Text & " AND" & _
    "a.Herrsteller_ID=ap.Herrsteller_ID;"
 
 '  Der auskommentierte SQL-String unten funktioniert aus irgenteinem Grund in
 '  dieser Parameter-Abfrage nicht (aber dafür anderswo). Wieso?
 '  Und wieso funktioniert dagegen der obere SQL-String?
 
 '  "select ap.Name, ap.Vorname, a.Firma " & _
 '  "from tbl_Ansprechpartner ap, tbl_Herrsteller a " & _
 '  "where a.Firma= '" & Text2.Text & "' AND" & _
 "a.Herrsteller_ID=ap.Herrsteller_ID;"
 
 comm.CommandType = adCmdText
 Set comm.ActiveConnection = con
 Set rs = comm.Execute(Parameters:=Text2.Text)
 Set DataGrid1.DataSource = rs