(Resolvido) - VB6 x Windows 7

[wet]

Amigos preciso de ajuda.

Temos uma programa em VB6 com banco de dados SQL2000, existe uma DLL de Conexão.

No XP roda normalmente, colocamos uma maquina com WIndows 7 quando fomos instalar apresentou uma mensagem que não conseguia registrar a DLL MFC40.dll, desabilitei o UAC rodei como administrador e nada, então comecei a debugar o sistema, vi que na conexão passa normalmente, mas o resultado aparece sem a senha, ou seja na string de conexão coloco usuário e senha, após o comando Open o resultado aprece sem a senha, então tudo que utiliza aparece que não consegue conxão por falta da senha.

Segue comando.:

strCnn = "Provider=SQLOLEDB;" & _

"Data Source=" & objLgPub.Servidor & ";" & _

"Initial Catalog=" & dbName & ";" & _

"User ID=" & objLgPub.UsuarioSQL & ";" & _

"PassWord=" & objLgPub.SenhaSQL & ";"

Vg_Cn.Open strCnn

No XP o resultado do Vg_Cn é:

Provider=SQLOLEDB.1;Password=xxxx;User ID=xxx;Initial Catalog=Seguranca;Data Source=192.168.0.XX;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=XXXX;Use Encryption for Data=False;Tag with column collation when possible=False

Já no Win7 é:

Provider=SQLOLEDB.1;User ID=xxx;Initial Catalog=Seguranca;Data Source=192.168.0.XX;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=XX;Use Encryption for Data=False;Tag with column collation when possible=False;

Ou seja a senha sumiu, e com isso o que depende deste resultado diz que não consegue se logar.

alguém poderia me ajudar?

Obrigado.

Editado Julho 18, 2012 por wet

[MRMB]

wet,

Adicione a sua string de conexão o parâmetro "Persist Security Info=True;"

strCnn = "Provider=SQLOLEDB;" & _
             "Data Source=" & objLgPub.Servidor & ";" & _
             "Initial Catalog=" & dbName & ";" & _
             "User ID=" & objLgPub.UsuarioSQL & ";" & _
             "PassWord=" & objLgPub.SenhaSQL & ";" & _
             "Persist Security Info=True;"

Com isso é para funcionar no XP e no Windows 7 32 e 64 bits.

[wet]

Claiton desculpe a demora mas funcionou.

Muito obrigado.