Visual Basic - reportes con datareport

Hola espero que me puedan ayudar estoy haciendo un programa de un consultorio medico pero al momento de querer hacer los reportes no lo puedo actualizar, es decir, quiero que mi programa imprima como un ticket de lo que tiene que pagar el paciente con sus datos y los medicamentos que le recetaron pero al momento de darle click en imprimir no se actualiza el datareport se quedo con el primer paciente que hice su ticket el codigo que tengo para obtener el reporte es este...

Private Sub Imprimir_report_Click()
Screen.MousePointer = vbHourglass
Load DataReport1
Screen.MousePointer = vbDefault
DataReport1.Show vbModal
End Sub

alguien me puede ayudar??? a que se actualice cada vez que quiero el ticket de un paciente de antemano gracias.