Problema con una consulta

[chaparro87]

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

[chaparro87]

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

[BrujoNic]

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