Visual Basic - Base de Datos

Tengo una base de datos en Microsoft Access y una Aplicacion en Visual Basic. Necesito localizar un registro especficado en ciertos controles enlazados como textbox, y estoy tratando de localizar con la propiedad Recordsource del Control Data.

La tabla se llama Personales, con los siguientes campos:
-Expediente, -Nombre, -Direccion, ...

Necesito localizar un registro, por Expediente .
Lo que estoy realizando es lo siguiente:

dim Expe as string

Expe = inputbox( "Proporcioname el Expediente:")

Data1.Recordsource = "Select * " & _
"From Personales" & _
"Where Personales.Expediente = Expe"
Data1.Refresh

El error es el siguiente, en la Clausula Where Mientras no ponga la
exprecion a encontrar (en este caso Expe) entre apostrofos la Sentencia
Sql Manda un error.
Unicamente lleva a cabo la consulta cuando se añaden los apostrofos
es decir 'Expe'.
Como puedo corregir este problema utilizando el Control Data y su propiedad Recorsource.

Es decir como puedo ejecutar una clausula Select , From y Where,
haciendo referencia a un parametro introducido por el usuario sin necedidad de utilizar los apostrofos

Crea primero un string donde concatenas la instruccion select y luego la asignas al recordsource.

cadena="select * from personales where personales.expediente=" + " ' " + expe + " ' "

data1.recordsource=cadena

y bingo!!!