SENHAbanco = "masterkey"
USERbanco = "SYSDBA"
IPbanco = "127.0.0.1"
DriveBanco = "E"               'bancosfirebid é uma pasta no drive E onde ta o banco de dados

'onde tem ~ é uma barra ao contrario

    BANCO = DriveBanco & ":~BancosFirebird~HORAS_EXTRA.gdb"

    Set ConexaoADO = New ADODB.Connection
    ConexaoADO.CursorLocation = adUseClient

       'driver IbOLEDB
     ConexaoADO.Open "Provider=IbOleDb;Location=" & IPbanco & ";Data Source=" & BANCO, USERbanco, SENHAbanco & ";Extended Properties='sql Dialect=3;Character Set=ISO8859_1;Collate = PT_BR'"