Consultas con fechas inicial y final

Que tal gente a ver si me pueden hechar una ayuda.
Estoy haciendo un programa en donde tengo dos DtPicker uno fecha inicial y otro fecha final, y mshflexgrid y una base de datos hecha con foxPro, pero cuando quiero hacer una consulta de fechas me da el siguiente error:
Operator/operand type mismatch
Dim SQL As String
Listado2.Clear
Listado2.Rows = 0: Listado2.Cols = 5: Listado2.FixedCols = 0
Listado2.ColWidth(0) = 1050: Listado2.ColWidth(1) = 5725
Listado2.ColWidth(2) = "1800": Listado2.ColWidth(3) = "1800"
SQL = "SELECT expediente,alumno,fechaingreso FROM alumnos WHERE fechaingreso BETWEEN '" & Fecha1.Value & "' and '" & Fecha2.Value & "'"
conexion.rsalumnos.Open SQL, conexion.Conexionalumnos
With conexion.rsAlumnos
If (conexion.rsalumnos.BOF And conexion.rsalumnos.EOF) Then
MsgBox "No hay alumnos inscritos esas fechas", vbExclamation, "Busqueda de Alumnos"
End If
Do While conexion.rsalumnos.EOF = False
Listado2.AddItem conexion.rsAlumnos.Fields(0) & vbTab & conexion.rsAlumnos.Fields(1) & vbTab & conexion.rsAlumnos.Fields(2)
conexion.rsAlumnos.MoveNext
Loop
If conexion.rsAlumnos.State = 1 Then conexion.rsAlumnos.Close
End With
ojala me pudieran ayudar por favor