Visual Basic - Problemas con las consultas

Hola..
Tengo un problema al hacer ciertas consultas a una base de access, la base es creada , y llenada desde vb6. Estas son mis variables

Public Base As DAO.Database
Public Tabla As DAO.TableDef
Public campo As DAO.Field
Public db As DAO.Recordset

Set Base = OpenDatabase(RUTA)
Set db = Base.OpenRecordset _
("Select * from Tabla WHERE Campo = " & Variable, dbOpenDynaset, dbOptimistic)

cuando trato de hacer una consulta de este tipo no funciona, logicamente si le saco la condicion si esntra a la base de datos y selecciona todo ...

Como debo hacer ese tipo de consultas que requieren ciertos parametros

saludos.... Si quieren me responden al mail

En teoria esta bien si el campo por el que buscas es un campo numerico pero si es un alfanumerico debes hacer lo siguiente:

Set db = Base.OpenRecordset _
("Select * from Tabla WHERE Campo = '" & Variable & "'", dbOpenDynaset, dbOptimistic)