error en visual basic

[MrRipley]

No sé si funcionará ya bien así, pero si dices que el campo numcheque es texto, yo pondría:
Set rs1 = bdatos.OpenRecordset("Select cheque,fecha,banco,cantidad,cod_persona from cheque where cheque= '" & numcheque & "'"), con comilla simple antes y después del campo numcheque, y si aún quieres evitar otros errores, asegúrate que el campo numcheque no contenga ya ningún carácter comilla simple; en ese caso debes duplicar el carácter comilla simple dentro del campo (no sustituirlo por comilla doble, sino por dos comillas simples) y así evitarás cualquier error.