Foros del web, para los que viven de bits

Hola gente, os explico, tengo una BD con las tablas empleado y trabajosReservados y me gustaria hacer una consulta para extraer de un determinado empleado los trabajos reservados los ultimos 21 dias, ¿como lo haria?

Graciasss

Gente ya esta solucionado, dejo la respuesta por si ha alguien le interesa algun dia:

Dim Current_date As Date
Dim first_date As Date
Dim mCuantosDias as Long

Textfecha.Text = Date
Current_date = Format$(Textfecha, "yyyy/mm/dd")
mCuantosDias = 21
first_date = (Current_date - mCuantosDias)
Text1.Text = Module1.Engineer
rs.Open "Select * from booking where Staff_Id ='" & Text1.Text & "' And Date BETWEEN '" & Format(first_date, "yyyy-mm-dd") & "' AND '" & Format(Current_date, "yyyy-mm-dd") & "'", cn, adOpenDynamic, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs

Que bien pudieras resolverlo, pero para la próxima, por favor NO coloques código de programación en esta sección ya que es de BD y NO de programación.

Función de la sección de Base de Datos