Error En Select En Visual Basic

[perezgladys28]

HOLA A TODOS ESTOY TRATANDO DE FILTRAR UNA BASE DE DATOS POR EL CODIGO DE LA PERSONA ESTE C LEE EN UNA CAJA DE TEXTO DE UN FORMULARIO. LA COSA ES Q EN LA INSTRUCCION SELECT PARA FILTRAR LA TABALA ME DA ERROR: POCOS PARAMETROS C ESPERABA 1.

CODIGO = TCODIGO.TEXT // ESTE SE LEE DEL FORMULARIO

SET tcheque = bdatos.OpenRecordset("SELECT fecha, cheque, cod_persona, cantidad FROM cheque WHERE codp_persona=CODIGO")

ESTA INSTRUCCION ME DA ERROR!!
ES UN SIMPLE FILTRO Y NO C POR Q ME DA ERROR POR FAVOR SI ALGUIEN VE EL ERROR DIGANMELO O SI TIENE OTRA FORMA DE HACER ESTO POR FAVOR ME AYUDE

LA CONEXION ES A VES DE ODBC Y ESTOY USANDO UN DATA

[AJLovers]

Prueba con esta linea:
SET tcheque = bdatos.OpenRecordset("SELECT fecha, cheque, cod_persona, cantidad FROM cheque WHERE codp_persona=' " & codigo & " ' ")
espero que te sirva

[claudiovega]

que tipo de datos acepta el campo codp_persona?

si es texto puedes usar la respuesta de AJLovers, sino puedes usar esto:

CODIGO = val(TCODIGO.TEXT) // ESTE SE LEE DEL FORMULARIO

SET tcheque = bdatos.OpenRecordset("SELECT fecha, cheque, cod_persona, cantidad FROM cheque WHERE codp_persona=" & CODIGO)