Olá Tenci,

Crie um arquivo texto com os parâmetros de conexão com a base de dados: Exemplo:

PROV_OLEDB        : MSDAORA       ' sOLEDB

BANCO_GLOBAL     : NOME_BANCO_GLOBAL    'sBancoGlobal

BANCO_USUARIO   : NOME_SEU_BANCO         'sBancoUsu
SENHA                 : SENHA                         'sSenha
DRIVER       : {Microsoft ODBC for Oracle}

 

A string de conexão é a seguinte:

        Dim cnConexao as adodb.connection

 

        Set cnConexao = New Connection
   
        cnconexao.Open "Provider= " & sOLEDB & ";" & _
                       "Data Source= " & sBancoGlobal & ";" & _
                       "Persist Security Info=False; " & _
                       "User Id= " & sBancoUsu & ";" & _
                       "Password= " & sSenha & " "

Espero ter ajudado.