Visual Basic - Problemas con Where vb6 + access

hola amigos, tengo el siguiente codigo:

SQL = "SELECT Movimiento, SUM (Monto)AS SUMA FROM Movimiento Where Movimiento.Movimiento= 'Ingreso' AND ((Movimiento.Fecha) Between #" & Format(CboInicio.Text, "DD/MM/YYYY") & "# and (Movimiento.Fecha) AND #" & Format(CmbFin.Text, "DD/MM/YYYY") & "#) Group By Movimiento"

el where dice k elija solo los movimientos k sean INGRESOS y segun el rango de fechas los sume.

pero lo k hace es separar los ingresos y sumarlos todos sin tomar en cuenta las fechas.

bueno eso, espero me ayuden, gracias,xauu

y no te diste cuenta que sobra algún "and (Movimiento.Fecha)" ????

tienes razon, ahora me funciono el codigo pero tuve k hacerle otra modificacion en el formato de las fechas ahora kedo asi (MM/DD/AAAA)

dejo el codigo por si alguien le sirve:

CboInicio.Text = Format(CboInicio, "dd/mm/yyyy")
CmbFin.Text = Format(CmbFin, "dd/mm/yyyy")

SQL = "SELECT Movimiento, SUM (Monto)AS SUMA FROM Movimiento Where Movimiento.Movimiento= 'Ingreso' AND ((Movimiento.Fecha) Between #" & Format(CboInicio.Text, "MM/DD/YYYY") & "# AND #" & Format(CmbFin.Text, "MM/DD/YYYY") & "#) Group By Movimiento"
Debug.Print SQL
MsgBox (SQL)
Rs.Open SQL, Cn, adOpenDynamic, adLockOptimistic
TxtIngreso = Rs.Fields("SUMA")
Set Rs = Nothing

SQL = "SELECT Movimiento, SUM (Monto)AS SUMA FROM Movimiento Where Movimiento.Movimiento= 'Egreso' AND ((Movimiento.Fecha) Between #" & Format(CboInicio.Text, "MM/DD/YYYY") & "# AND #" & Format(CmbFin.Text, "MM/DD/YYYY") & "#) Group By Movimiento"
Debug.Print SQL
MsgBox (SQL)
Rs.Open SQL, Cn, adOpenDynamic, adLockOptimistic
TxtEgreso = Rs.Fields("SUMA")
Set Rs = Nothing
TxtSaldo.Text = Val(TxtIngreso.Text) + Val(TxtEgreso.Text)

gracias por sus consejos.

xauu