Macro para abrir consulta da: Error de ejecución de Basic - Variable de objeto no establecida.

[angruto]

He encontrado un código para que al pulsar en una opción en un botón que me abra una consulta en libreoffice base; la inserto en el botón que he creado en un formulario y al ejecutarla me da el siguiente error:
Error de ejecución de BASIC.
Variable de objeto no establecida.

Este es el código:

Sub boton_consulta() "ESTE ES EL NOMBRE DE MI MACRO"
Dim Control as Object
Control = ThisDatabaseDocument.CurrentController "ESTA ES LA LINEA DONDE ME DA EL ERROR"
If ( Not Control.isConnected() ) Then
Control.connect()
End If
Control.loadComponent(com.sun.star.sdb.application.DatabaseObject.QUERY,"cns_LIST_SOCIOS",FALSE ) "ESTA ES LA CONSULTA QUE QUIERO QUE ABRA"
End Sub

Estoy utilizando libreoffice 7.0.3.1 y Windows 7
MUCHAS GRACIAS DE ANTEMANO

[laurencio]

Perdón si se me pasa algo obvio pero ¿Por qué escribiste los comentarios entre comillas ?

[Longi]

Buenas!
Salvo lo de usar comillas en los comentarios (si no utilizas comilla simple siempre dará error de sintaxis), a mi me funciona perfecto.
¿Cómo asignaste la macro al botón, a qué evento?. Yo tengo la costumbre de usar el evento de ‘Botón de ratón pulsado’.
Un saludo!

[angruto]

Hola, las comillas las he puesto para destacar mis comentarios pero, en el código de la base de datos no están. Gracias