Visual Basic - Montar una consulta de access a un recordset

Hola a todos, bueno yo trabajo con DAO, y arme algunas consulta en el motor de base de datos ACCESS y quiero montarla en un Recordset y poder trabajarla en VB6, e intente hacerlo de esta forma...

cons3 = "SELECT *FROM Consulta_Access WHERE Consulta_Access!NI = " & id
Set rs3 = bd.OpenRecordset(cons3, dbOpenDynaset)

y no funcionó, estoy haciendo algo mallllllll

Gracias por contestar...........

No lo ve, la consulta esta bien hecha y buscando el registro deseado desde access éste existe pero ejecutandolo no tira ningun error, solo no encuentra resultado alguno. El error esta en la sintaxis del SELECT?