Visual Basic - VARIABLE

AMIGOS:

TENGO UN PEQUEÑO PROGRAMA QUE GENERA UN REPORTE DE UNA BASE DE DATOS (ACCES) , ESTE PROGRAMA ME GENERA UN REPORTE POR FECHAS, EN ESTE EJEMPLO ME GENERA LAS FECHAS ENTRE EL 01/11/2002 AL 15/11/2002 :

SUB IMPRIME()
CRYSTALREPORT1.SELECTIONFORMULA= "{NOMBRE_TABLA.NOMBRE_CAMPO} IN (DATE(2002,11,01) TO DATE (2002,11,15))"
END SUB

LO QUE QUIERO ES QUE AL CORRER EL PROGRAMA ME PREGUNTE LAS FECHAS A CONSULTAR, ESTO DEBE DE SER CON UNA VARIABLE, PERO LA VERDAD SOY NOVATO Y NO LOGRO HACERLO, SI ME PUEDEN AYUDAR CON UN EJEMPLO, POR FAVOR ME LO ENVIAN A MI MAIL O DIGANME COMO LE HAGO

SALUDOS Y GRACIAS DE ANTEMANO

Esta facil...

Haz una forma que tenga dos controles DTPICKER (Osea el calendario) y un boton aceptar. luego define dos propiedades de esa forma que sean por ejemplo:
Public FechaInicial As Date
Public FechaFinal As Date

en el evento load de la forma escribe :

dtpicker1.value = Date
dtpicker2.value = Date
(Esto paa que cuando despliegues la forma siempre muestre la fecha actual)

luego en el evento click del boton :

Private Sub CommAgregar_Click()
me.FechaInicial = me.dtpicker1.value
me.FechaFinal = me.dtpicker2.value
unload me
End Sub

Despues vas a modifcar tu codigo para que quede asi:

SUB IMPRIME()
dim frm as new frmFechas
dim FechaIni as Date
dim FechaFin as Date

frm.show vbmodal
FechaIni = frm.FechaInicial
FechaFin= frm.FechaFinal

CRYSTALREPORT1.SELECTIONFORMULA= "{NOMBRE_TABLA.NOMBRE_CAMPO} IN (DATE(" & Format(FechaIni, "yyyy,mm,dd") & ") TO DATE (" & Format(FechaIni, "yyyy,mm,dd") & "))"
END SUB

Y listo!!!

Espero te sirva..!!!

Atte
LALO