Visual Basic - filtros de Fechas para una SQL

Hola como estan todos tengo el siguiente problemita

Tengo un formulario de Pago de proveedores y quiero seleccionar el proveedor y dos fechas (fecha_desde y fecha_hasta) y que me muestre las compras hechas a ese proveedor entre ese intervalo de fechas

PERO NO ME SALEN LAS FECHAS CORRECTAS ME SALEN CUALQUIER CANTIDAD DE FECHAS SIN RESPETAR EL RANGO
AAAAAAAAAAAAAAAAAAAAAAAAA

me dijeron que debo usar el carater # pero no se como o si es verdad
please denme una manito

Yo utilizo esta consulta para las fechas, ojala te sirva

SQL = "select Facturas.Nro_Factura,Facturas.fecha,Clientes.nombre,Facturas.total,Facturas.estado" _
& " from Facturas,Clientes" _
& " where Facturas.rut_Cliente=Clientes.rut_cliente and Facturas.fecha >= DateValue('" & Fecha1.Value & "') and Facturas.fecha <= DateValue('" & Fecha2.Value & "')"

Seleccionar para ACCESS
Dim strFecha As String
Dim rs As New ADODB.Recordset

sql = "SELEECT * FROM TABLA"
sql = sql & " WHERE FECHAI >= # "
strFecha = Format(Month(FechaInicio), "00") & "/" & _
Format(Day(FechaInicio), "00") & "/" & _
Year(FechaInicio)
sql = sql & strFecha & "# AND FECHAD <= # " 'Fecha Desde
strFecha = Format(Month(FechaFinal), "00") & "/" & _
Format(Day(FechaFinal), "00") & "/" & _
Year(FechaFinal)
sql = sql & strFecha & "#'" 'Fecha Hasta
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = cn 'Tuvariable conexion
With rs
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockReadOnly
.Open sql
End With

Saludos desde Lima