Problema con la consulta

[daniel00]

Que tal.

Tienes un error en la varbla "a", prueba lo siguiente:

Código:

a=len(lcApellido)
sql= "Select ctaapelli,ctadni From cuentas "
sql = sql & Where right(ctaapelli,"  & a  & " )= '" &  lcApellido & "'"

Saludos.