Dim filter As String
 
        Con.Open()
        Dim ds As New Data.DataSet
        Dim da As OleDbDataAdapter
        Dim table As DataTable
 
 
        If txt_Beispiel.Text <> "" Then
            filter = filter + "WHERE Spalte like'" & txt_Beispiel.Text & "%'"
        End If
 
 
If filter <> "" Then
            da = New OleDbDataAdapter("Select * FROM Tabelle" & filter, Con)
            da.Fill(ds, "Tabelle")
            table = ds.Tables("Tabelle")
            DataGridView1.DataSource = table
 
          Else
            MsgBox("Keine Felder ausgefüllt!")
        End If

 da.Fill(ds, "Tabelle")

Fehler in der FROM-Klausel