amigo, fiz que vc pediu agora dando esse erro
'naoo Erro desconhecido! Não foi possível ler a string de conexão com o Banco de Dados a partir do arquivo "C:\Windows\CorporeRMCom.UDL" Não foi possível converter o arquivo "C:\Windows\CorporeRMCom.UDL" em uma string de conexão!
ja criei o .udl ja registrei e ainda continua com problema na conxao da base de dados
ex:
Set valida = CreateObject("CPConnect.Login")
Resultado = valida.GetAccessParams(false, "CorporeRMCom", user, senha, "F" ,a ,b ,c)
inclusive coloquei a string igual a .UDL