Visual Basic - corregir instrucción

Hola ; señores, nesecito que digan cual es el error de esta instrucción,estare muy agradecido por sus ayuda.

Set REC = Db.Execute("select * FROM consulta1 where estado_cheque="Cobrado")

Si Cobrado es un literal, como parece ser, la instrucción correcta es:
Set REC = Db.Execute ("SELECT * FROM consulta1 WHERE estado_cheque = 'Cobrado'")

Si es el nombre de una variable:
Set REC = Db.Execute ("SELECT * FROM consulta1 WHERE estado_cheque = '" & Cobrado & "'")

Creo que la que te funcionará es la primera, poniendo Cobrado entre comillas simples y toda la sentencia, desde el SELECT entre comillas.

Tenes que usar comillas simples si tenes para que VB no las confunda con las de la cadena.
asi:
Set REC = Db.Execute("select * FROM consulta1 where estado_cheque='Cobrado' ")
Como sugerencia es preferible utilizar numeros en lugar de cadenas para estos estados.
Por ejemplo:
1 = Cobrado.
0 = No Cobrado.