BASIC syntax error. Expected: ).

[pinco pallo]

Ciao a tutti, sto cercando di seguire la guida di Andrew Pitonyak sulle macro di Base. Ma mi sono dovuto fermare al primo gradino per via dell'errore riportato nel titolo.
Cosa c'è di sbagliato nel codice che riporto integralmente (copia/incolla)?
Grazie.

Codice: Seleziona tutto

 
REM Use "Option Compatible", or you can not use a default argument.
Sub CreateBinaryDB (Optional dbURL$ = "", Optional bVerbose = False)
  Dim oDBContext   'DatabaseContext service.
  Dim oDB          'Database data source.

 REM No URL Specified, get one.
  If dbURL = "" Then dbURL = ChooseAFile(OOoBaseFilters(), False)
  REM Still No URL Specified, exit.
  If dbURL = "" Then Exit Sub

  If FileExists(dbURL) Then
    If bVerbose Then Print "The file already exists."
  Else
    If bVerbose Then Print "Creating " & dbURL
    oDBContext = createUnoService( "com.sun.star.sdb.DatabaseContext" )
    oDB = oDBContext.createInstance()
    oDB.URL = "sdbc:embedded:hsqldb"
    oDB.DatabaseDocument.storeAsURL(dbURL, Array())
  End If
End Sub 

[pinco pallo]

Ho trovato da solo, grazie. Bastava leggere la prima REM: manca la Option Compatible prima della sub.