Funciones

[dimoito]

Supongo que el error está en el parámetro valor, en el caso que sea una variable de tipo numérico:

resp = ValidaCodigo (opcion, valor).

Luego en la función la recoges como código.
Prueba lo siguiente:
sqltxt = "select * from tabla where codigo = " & cstr(codigo)

Otra cosa, ¿para qué pasas el parámetro opción, si luego no lo usas? (por lo menos en lo que se ve...)