OleDbDataAdapter1.SelectCommand.CommandText = "Update Immo set (Vart LIKE '" & _
  ComboBox1.Text & "%' And Objektart Like '" & ComboBox2.Text & "%' And Zustand" & _
  "Like '" & ComboBox3.Text & "%' And Baujahr Like '" & TextBox1.Text & "%' And" & _
  "Etage Like '" & TextBox2.Text & "%' And Einheiten Like '" & TextBox3.Text & _
  "%'And Zimmer Like '" & TextBox11.Text & "%')"
        DataSet31.Clear()
        OleDbDataAdapter1.Fill(DataSet31)