Publica Conexao is not found

[m@r<3|o]

Código:

********************** Abre banco de daods ***********************
FUNCTION Open_BD()
LOCAL cstrConexao 
PUBLIC conSql
cstrConexao= SQLSTRINGCONNECT([Driver=Firebird/InterBase(r) driver;Database=local;UID=SYSDBA;pwd=masterkey;])

conSql = Sqlstringconnect(cStrConexao)

IF conSql < 1 THEN
   MESSAGEBOX( 'Nao foi possivel conectar-se ao Banco de Dados! O Sistema será encerrado.',48,'Atencao' )
    CLEAR EVENTS
   QUIT
ELSE
   WAIT "Banco de dados conectado" window nowait timeout 3
ENDIF
ENDFUNC

Pessoal , preciso tacar essa conexao para o formulario,
para mim seria algo como

Public conSql no Init .....

mais me da a seguinte mensagem de Erro Variable " CONSQL " is not found

como declarar essa funcao acima num formulario ???

Abraços
Obrigado

[Marcos Guedes]

Num formulário???

Se entendi bem, crie um novo método para o formulário, em:
Menu->Form->New Method

Em seguida adicione o seguinte código:

Código:

LOCAL cstrConexao 
PUBLIC conSql
cstrConexao= SQLSTRINGCONNECT([Driver=Firebird/InterBase(r) driver;Database=local;UID=SYSDBA;pwd=masterkey;])

conSql = Sqlstringconnect(cStrConexao)

IF conSql < 1 THEN
  MESSAGEBOX( 'Nao foi possivel conectar-se ao Banco de Dados! O Sistema será encerrado.',48,'Atencao' )
    CLEAR EVENTS
  QUIT
ELSE
  WAIT "Banco de dados conectado" window nowait timeout 3
ENDIF

Para chamá-lo a partir de um componente, ou outro método do form:

Código:

THISFORM.nomeDadoAoMetodo()

Seria isto que você precisa?