Dim Verbindung As String = "Provider=Microsoft.jet.OLEDB.4.0;" & "data" & _
  "source=C:\Users\Alex\Documents\Visual Studio" & _
  "2012\Projects\Bewerbungsdatenbank\Bewerbungsdatenbank\db1.mdb"
        Dim Con As New OleDbConnection(Verbindung)
 
        Dim Kriterium As String
        Kriterium = txtsearch.Text
        Label19.Text = Kriterium
Dim SqlStatement As String = "SELECT * FROM Tabelle1 WHERE (Firmenname LIKE" & _
  "@Firmenname)AND (Strasse LIKE @Strasse)" <= steht in einer Zeile
        Dim da As New OleDbDataAdapter(SqlStatement, Con)
 
        da.SelectCommand.Parameters.AddWithValue("@Firmenname", "Kriterium%")
        da.SelectCommand.Parameters.AddWithValue("@Strasse", "Kriterium%")
 
        Dim ds As New DataSet
        Con.Open()
        da.Fill(ds, "Tabelle1")
 
        Con.Close()
 
        DataGridView1.DataSource = ds
End Sub

Das Leben hat die beste Grafik, nur das Gameplay ist manchmal beschissen.