Hola
shaka025 estas mal con la expresion...
Código vb:
Ver originalconsulta3 = "SELECT count(Codigo) from cuentas where Codigo = " ' " & var4 & " ' "
debe ser así :
Código vb:
Ver originalconsulta3 = "SELECT count(Codigo) from cuentas where Codigo = '" & var4 & "'"
Saludos!

.