Erro para abrir Bco de dados

[Lademar 0]

Boa tarde.Tenho alguns aplicativo desenvolvidos em VB6 onde uns acessam banco de dados em access e outros banco de dados SQL, mas aconteceu um erro nas seguintes linhas : Alguns exemplo :Linha de Comando : Set rs = CreateObject("ADODB.Recordset")With rs.Open "select a.aplicacao, b.acesso from aplicacoes a, acesso b where a.cod_aplicacao = b.cod_aplicacao " _ & "and b.cod_usuario=" & codigo, cn, adOpenKeyset, adLockOptimistic ERRO : RunTime error ‘13’ Type MisMatchou : Linha de Comando : .OpenERRO :run time error’-2147217843(80040e4d)’:login failed for user “DM-REDE3G\ADEMAR’.Fico agradecido a quem puder me Ajudar...Grato.LademarLademarr@hotmail

[Veber 0]

[ caso 01 ]verifique se CN é do tipo ADODB.CONNECTION, e está dimensionada e instanciada[ caso 02 ]verifique esquema de permissoes e cadastro do usuarionao ajudei nada neh? heheheheFlows