Exupdate Errore Variabile dell'oggetto non impostata

[grotta continua]

Ciao
ho una macro che ho usato altre volte che prende i valori da alcune
celle di calc e inserisce in una tabella base
che mi da un'errore <Variabile dell'oggetto non impostata>

la macro (qui ridotta) è questa

'inizio_________________

Function connettiDB(nomedb)
DatabaseContext =
createUnoService("com.sun.star.sdb.DatabaseContext")
DataSource = DatabaseContext.getByName(nomedb)
If Not DataSource.IsPasswordRequired Then
Connection = DataSource.GetConnection("","")
Else
InteractionHandler =
createUnoService("com.sun.star.sdb.InteractionHandler")
Connection = DataSource.ConnectWithCompletion(InteractionHandler)
End If
connettiDB=Connection
End function

' _____________________________________________________

Function SELquery(conn as object,cmd as string)
Statement = conn.createStatement()
Statement = conn.PrepareStatement(cmd)
SELquery = Statement.executeQuery()
end function

' _____________________________________________________

Function EXupdate(conn as object,cmd as string)
Statement = conn.createStatement()
Statement = conn.PrepareStatement(cmd)
Statement.executeUpdate()
'MsgBox("Registrazione Inserita")
' On Error Goto 0
' DeconnecterSource
end function
'_______________________________________________

Sub scrivi

Dim oSheets, monBulletin as object



maConnexion = connettiDB("Gest-Cantieri")
if IsNull(maConnexion) then
MsgBox("Connessione impossibile ", 16)
Exit Sub
end if
oSheets=ThisComponent.Sheets
oSheets=ThisComponent.Sheets
monBulletin = oSheets.getByName("Sal")
ID = monBulletin.getCellRangeByName("K6").getString()


EXupdate(Connection,"INSERT INTO ""Tb1""(""ID"") VALUES('" & ID &"')"


End Sub
'_______________________________________________________________________________________
Function ChangerVirgule(maValeur as String) as Variant
Dim laVirgule as Integer
laVirgule = InStr(maValeur, ",")
If laVirgule > 0 Then Mid(maValeur, laVirgule , 1, ".")
ChangerVirgule = maValeur
End Function

Function ProtegerChaine(Chaine As String) as String
Dim i as Integer
i = InStr(Chaine, "'")
While i > 0
Chaine = Mid(Chaine, 1 , i) & "'" & Mid(Chaine, i + 1)
i = InStr(i + 2, Chaine, "'")
Wend
ProtegerChaine = Chaine
End Function

'fine_________________________________________________________

e non riesco a capire perchè prima funzionava
ho provato a creare un file nuovo copiare la macro e avviarla con XX-
OpenOffice ma l'errore
insiste
qualcuno mi aiuta a capire dove sbaglio?
naturalmente nel frattempo sto rileggendo i vari manuali disponibili

[grotta continua]

mi ero fatto uno scherzo di carnevale scambiando vari nomi
poi ho trovato qui un'altro post scritto da uno che ha il mio stesso
nome e così ho risolto
grazie per i post precedenti