SoloCodigo

Hola amigos, nuevamente tengo una duda, necesito arrojar en un list los datos que se encuentran dentro de un rango de fechas a traves de una consulta sql.   El codigo que tengo es el siguiente :

Dim base As Database
Dim rs As Recordset

Private Sub Command1_Click()
Set base = OpenDatabase("C:fecha97.mdb")
Set rs = base.OpenRecordset("select * from personal where fecha between #01/01/03# and #01/02/03#")
Do While Not rs.EOF
   List1.AddItem rs!rut & Space(2) & rs!nombre
   rs.MoveNext
Loop
End Sub

Este codigo resulta, pero lo que necesito es tomar las fechas de los texbox, no indicarselas por programa, si me pueden ayudar se los agradezco mucho,
Saludos Becker24:beer:

Hola J.M.Movilla, sabes el cambio que me dijiste que hiciera funciona, pero tengo un problema , al darle el rango el text2.text lo toma con un dia antes es decir, si quiero listar todo lo que este entre el 01.01.2003 al 10.01.2003, me lista lo que esta entre el 01.01.2003 al 09.01.2003, lo que necesito es que se incluya la ultima fecha que estoy dando en el text2.text.
Si puedes ayudarme te lo agradeceria, saludos, becker24

Hola J.M., sabes sigo teniendo problemas para la busqueda entre fechas, seria posible y te lo pido humildemente que me enviaras algun ejemplo si es que lo tienes, te lo agradeceria mucho, de antemano muchas gracias por tu ayuda,
saludos Becker24:beer: