Не получается редактировать БД

Сам разобраться уже не могу.Есть файл *.odbХочу в макросе изменять данные в таблице.Макрос сохраняю в файле *.odb.Вешаю макрос на кнопку в Форма 1.В макросе:Код:Sub Main Dim InteractionHandler as Object Dim Statement As Object Dim ResultSet As Object DatabaseContext = createUnoService("com.sun.star.sdb.Datab aseContext") DataSource = DatabaseContext.getByName("Data source 1") InteractionHandler = createUnoService("com.sun.star.sdb.Inter actionHandler") Connection = DataSource.ConnectWithCompletion(Interac tionHandler) Statement = Connection.createStatement() ResultSet = Statement.executeQuery("SELECT * FROM Table_1") Statement.ResultSetConcurrency = com.sun.star.sdbc.ResultSetConcurrency.U PDATABLE Statement.ResultSetType = com.sun.star.sdbc.ResultSetType.SCROLL_I NSENSITIVE ResultSet = Statement.executeQuery("SELECT * FROM Table_1") ResultSet.last() MsgBox ResultSet.getString(2) ResultSet.updateString(2, "FF") ResultSet.updateRowEnd SubНажимаем на кнопку1) 442) The rezult set is read-onlyПочему он только для чтения?Подскажите пожалуйста!