ayudame con una consulta de base da datod

[Oscar Zuniga]

base datos 1

cliente  Nombre                        cadena

13422 RODRIGO MEDINA 2

13423 M/S MIGUEL         2

13424 RESTAURANTE MARY 2

13425 FARMACIA SAN PABLO 1

13426 ALFONSO PEDROUSO 1

13427 JORGE NIETO 1

base datos2

cadena  Nombre 

1 supermercado

2 personal

base de datos3

factura FECHA  cliente CANTIDAD Monto

2967900 02/01/10 13422 41.00 79.95

2967899 02/01/10 13423 37.00 70.30

2967898 02/01/10 13424 80.00 132.00

2967872 02/01/10 13425 39.00 74.10

2669017 02/01/10 13426 144.00 309.60

2967897 02/01/10 13427 118.00 196.10

2669016 02/01/10 13422 5066.00 9280.10

2946134 02/01/10 13423 351.00 528.81

2968301 02/01/10 13424 151.00 212.35

2968302 02/01/10 13425 120.00 174.00

2946135 02/01/10 13426 350.00 522.70

2968303 02/01/10 13427 70.00 117.00

2967219 02/01/10 13422 52.00 116.95

2967218 02/01/10 13423 58.00 133.10

2967217 02/01/10 13424 130.50 313.87

2967216 02/01/10 13425 130.50 115.60

2968304 02/01/10 13426 130.50 2643.65

cuando voy hacer el filtro para que de la base de datos por fecha que solo me traiga los cliente

 de que son por ejmplo de cadena 1 que traiga 

if cadena=1

SELECT cadena  Nombre from base de datos2 WHERE  cadena=1  into cursor traer

select traer

go top

IF EOF()

MESSAGEBOX("No existe ")

else

SELECT cliente,Nombre,cadena from base de datos1 WHERE  cadena=traer.cadena   into cursor traer2

select traer2

IF EOF()

MESSAGEBOX("No existe ")

else

fecha1=date(01/01/10)

fecha=date(31/12/10)

Select factura,fecha,cliente,cantidad,monto From base datos3 WHERE cliente= traer2 and (fecha>=fecha1 And fecha<=fecha2)  Into Cursor facturas

IF EOF()

MESSAGEBOX("No existe ")

else

endif

endif 

endif 

No me traer ningun resultado que estoy haciendo mal

ayudeme

[Fidel Charny]

Supongo que no es ese el verdadero código.

Inválido:

fecha1=date(01/01/10)       debería ser fecha1 = Date(2010,1,1)

fecha=date(31/12/10)         debería ser fecha2 = Date(2010,12,31)

FORM base de datos2      Datos2 supuestamente es una tabla, no una base de datos. [ FROM datos2 WHERE....]
WHERE cliente= traer2 and       Cliente = traer2      campo = cursor ???


(fecha>=fecha1 And fecha<=fecha2)  Mejor es FECHA BETWEEN fecha1 AND Fecha2

Sería mucho más fácil si la tabla3 tuviera el campo Cadena.