Ayuda please S.O.S.

Amigos, espero que alguien pueda ayudarme... con el
grabador de macros he creado la siguiente consulta de una
base de datos que es la siguiente:

Sub Ejecuta_consulta()
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=Excel
Files;DBQ=C:\Consulta.xls;DefaultDir=C:;DriverIdy0;MaxBu
fferSize 48;PageTimeout=5;" _
, Destination:=Range("A1"))
.CommandText = Array( _
"SELECT `BD$`.`Fecha de Intervención`, `BD$`.`AI -
Resposable de la intervencion`, `BD$`.Departamento,
`BD$`.`Nombre Común`, `BD$`.Tipo, `BD$`.Categoria" & Chr
(13) & "" & Chr(10) & "FROM `C:\Consulta`.`BD$` `BD$`" &
Chr(13) & "" & Chr(10) & "WHERE (`BD$`.`F" _
, _
"echa de Intervención`>={ts '2003-01-01
00:00:00'} And `BD$`.`Fecha de Intervención`<={ts '2003-
01-31 00:00:00'})" & Chr(13) & "" & Chr(10) & "ORDER BY
`BD$`.`Fecha de Intervención`" _
)
.Name = "Consulta desde Excel Files_2"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
Selection.CurrentRegion.Select
Selection.Font.Size = 8
Range("A1").Select
End Sub

como se darán cuenta en la consulta los criterios son:
Fecha de intervención>= 2003-01-01 00:00:00 y
Fecha de intervención<= 2003-01-31 00:00:00 (no se porque
toma este formato, ya que en la BD está con formato
dd/mm/yyyy).

Bueno ese no es el problema grave, lo que necesito hacer
es atrapar en dos variables la fecha inicial y la fecha
final y reemplazarlo en las líneas respectivas... y no
puedo hacerlo (mejor dicho; no se como hacerlo)... he
tratado de hacerlo pero no me sale... por favor si
alguien sabe como hacerlo... se los agradecería mucho, ya
que necesito acabar este trabajo hoy mismo

Muchas gracias

Felipe