ACESSAR BD FIREBIRD REDE

  
[ô]Variáveis do arquivo INI

Public CONEXAO As String
Public BANCODEDADOS As String
Public IDENTIDADE As String

[ô]Variáveis ADO
Public CNN As New ADODB.Connection

[ô]Função para iniciar a conexão com o Banco de Dados.
Public Function CONECTA(ByVal Valor As Boolean)

[ô]Verifica a condição para conectar ao banco de dados.
If Valor = True Then
    [ô]Define uma nova conexão
    Set CNN = New ADODB.Connection
    [ô]Lê as definições do arquivo ini para iniciar o banco de dados
    BANCODEDADOS = ReadINI([Ô]BANCODEDADOS[Ô], [Ô]CAMINHO[Ô], App.Path & [Ô]\CONFIG.INI[Ô]) [ô]Pega o endereço do Banco de Dados
    IDENTIDADE = ReadINI([Ô]BANCODEDADOS[Ô], [Ô]IDENTIDADE[Ô], App.Path & [Ô]\CONFIG.INI[Ô]) [ô]Pega a senha do Banco de dados firebird
    [ô]Preeche os dados com os valores obtidos no arquivo ini e executa a operação
    CONEXAO = [Ô]Provider=SIBPROvider.2; SIB:Character Set =WIN1252; Data Source=[Ô] & BANCODEDADOS & [Ô];User ID=[Ô] & [Ô]SYSDBA[Ô] & [Ô];Password=[Ô] & IDENTIDADE & [Ô][Ô]
    CNN.Open CONEXAO
    CNN.CursorLocation = adUseClient
Else
    [ô]Caso não seja verdade, ele automaticamente encerra a conexão
    CNN.Close
    Set CNN = Nothing
End If
End Function