Visual Basic - Problemas con las consultas

Hola..
Tengo un problema al hacer ciertas consulatas 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

Si Variable es de tipo String agrega comillas simples:
"Select * from Tabla WHERE Campo ='" & Variable & "'"

Si es de tipo Date agrega numerales:

"Select * from Tabla WHERE Campo =#" & Variable & "#"