Visual Basic - AYUDA Urgente error 20536

Ha ver si me puedes ayudar



Tengo el error que tu tenias 20536 imposible conectar : registro de parámetros incorrecto



Esta aplicación me corre bien y genera correctamente los reportes en un servidor SQL



La estoy instalando en otra empresa con un servidor SQL que tiene usuario y contraseña diferente



Ya le cambie a los programas las conexiones quedaron con el nuevo servidor, usuario y contraseña



Pero cuando le digo imprir me genera el error



Mi aplcacion esta en visual 6.0 la base de datos SQL 2000 y cristal REPORT 5



La instrucción que doy es la siguiente



Report1.ReportFileName = ruta + "usuarios.rpt"





sumacod = Trim(codzona) + Trim(nit_usu.Text) + Trim(codtipo)

sql = "select * from usuarios where codigo= "

sql = sql & Trim("'" + sumacod + "'")

Adodc1.CommandType = 1

Adodc1.RecordSource = sql

Adodc1.Refresh



Adodc1.Recordset.Find "codigo=" & Trim(sumacod)

If Adodc1.Recordset.EOF = True Then

MsgBox "Registro no Existe"

Else

codigo = Trim(Adodc1.Recordset("codigo"))

cadena = "{usuarios.codigo}=('" + codigo + "') and {usuarios.est_usu}=('" + codest + "') "

MsgBox cadena



' Report1.SelectionFormula = cadena

Report1.Action = 1







Muchas gracias por tu ayuda





Martha Edith Ortiz B.