Dim da As New OleDb.OleDbDataAdapter("Select * From Customers Where" & _
              "City Like ?", conn)
            Dim ds As New DataSet
 
            da.SelectCommand.Parameters.Add("P1", _
              OleDb.OleDbType.VarChar).Value = "L%"
            da.Fill(ds, "Customers")
            Me.CustomersDataGridView.DataSource = ds.Tables("Customers")

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist