Dim objZeile As DataRow
        objZeile = DataSet31.Tables("Immo").NewRow()
        With objZeile
            .Item("VArt") = ComboBox1.Text
            .Item("Objektart") = ComboBox2.Text
            .Item("Zustand") = ComboBox3.Text
            .Item("Baujahr") = TextBox1.Text
            .Item("Etage") = TextBox2.Text
            .Item("Einheiten") = TextBox3.Text
            .Item("Grundstueck") = TextBox4.Text
            .Item("Gewerbe") = TextBox5.Text
            .Item("Wohnen") = TextBox6.Text
            .Item("Verkauf") = TextBox7.Text
            .Item("Werkstatt") = TextBox8.Text
            .Item("Buero") = TextBox9.Text
            .Item("Lager") = TextBox10.Text
            .Item("Zimmer") = TextBox11.Text
        End With
        Dim cb As New System.Data.OleDb.OleDbCommandBuilder(OleDbDataAdapter1)
        OleDbDataAdapter1.InsertCommand = cb.GetInsertCommand
        DataSet31.Tables("Immo").Rows.Add(objZeile)
        OleDbDataAdapter1.Update(DataSet31, "Immo")