OpenOffice - Ayudaaaaaa!!!! Resulset

Necesitaria si alguien sabe como declarar el resulset para que pueda editar una base de datos ya que el codigo que tengo declarado me dice que es de solo lectura cuando ejecuta la linea:

ResultSet.UpdateLong ("col3", sqlcol1)

Desde ya muchas gracias aquella persona por tomarse las molestias de ayudarme

PD: este seria el codigo.

REM ***** BASIC *****

Sub aceptarPM

Dim Doc As Object
Dim DrawPage As Object
Dim Form As Object
Dim DatabaseContext As Object
Dim DataSource As Object
Dim Connection As Object
Dim InteractionHandler as Object
Dim ValPM as string
Dim sqlcol1 as integer

'Sentencia para trabajar con el formulario activo
'-------------------------------Comienzo----------------------------------
Doc = StarDesktop.CurrentComponent
DrawPage = Doc.DrawPage
Form = DrawPage.Forms.GetByIndex(0)
'---------------------------------FIN-------------------------------------

'Sentemcia para conexion con Base de Datos solicitando pass en caso de requerirla
'-------------------------------Comienzo----------------------------------
DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
DataSource = DatabaseContext.getByName("Nombre base de datos")
If Not DataSource.IsPasswordRequired Then
Connection = DataSource.GetConnection("Usuario","Contraseña")
Else
InteractionHandler = createUnoService("com.sun.star.sdb.InteractionHandler")
Connection = DataSource.ConnectWithCompletion(InteractionHandler)
End If
'---------------------------------FIN-------------------------------------

'Sentemcia para declarar Resultset y crear consulta
'-------------------------------Comienzo----------------------------------

Statement = Connection.createStatement(ResultSet.CONCUR_UPDATABLE ,ResultSet.TYPE_FORWARD_ONLY)
ResultSet = UPDATEABLE
ResultSet = Statement.executeQuery("SELECT col1,col2 FROM tabla1 WHERE col3 = 1")

'---------------------------------FIN-------------------------------------

'Sentemcia para cargar datos
-------------------------------Comienzo----------------------------------
valpm = form.PM.text
If Not IsNull(ResultSet) Then
While ResultSet.next
if valpm = ResultSet.getString(2) then
sqlcol1 = ResultSet.getString(1)
ResultSet.UpdateLong ("col3", sqlcol1)
ResultSet.updateRow()
end if
Wend
End If
'---------------------------------FIN-------------------------------------
End Sub