Visual Basic - No se que pasa pero no realiza accion

Hola a todos los de la web tengo el siguiente problema, resulta que estoy haciendo una busqueda por fechas y que me muestre los resultados en un dbgrid pero no pasa nada al presionar el boton buscar, ojal puedan ayudarme.

Dim fecha_d As Date
Dim fecha_h As Date
Private Sub BtnBuscar_Click()
fecha_d = (TxtFecha_ini)
fecha_h = (TxtFecha_ter)
DtaHistorico.DatabaseName = App.Path & "\BIBLIOTECA.mdb"
DtaHistorico.RecordSource = "PRESTAMO"
DtaHistorico.RecordSource = "SELECT * FROM productos WHERE fecha_inicio>=#" & Format(fecha_d, "yyyy-mm-dd") & "# and fecha_termino<=#" & Format(fecha_h, "yyyy-mm-dd") & "#"
DtaHistorico.Refresh
End Sub
Private Sub BtnCerrar_Click()
Unload Me
End Sub
Private Sub Form_Load()
Centrar FrmHistorico
End Sub

ojo que la coneccion la tengo en un modulo
gracias por su tiempo y ayuda.

muerte