Visual Basic - Error ninguno, pero ninguna acción.

Buenos días a todos los participantes del Foro, he visto la participación de un cuate con un problema con su reporte, y yo estoy elaborando uno parecido, solo que con los código que puse no me da error, pero tampoco me da nada que imprimir, sencillamente no hace nada. si alguien me puede dar una mano le agradeceré muchísimo, uso una database access 97, vb6 y crystal 4.5 o 4.6 no se muy bien, pero es el del CD3 instalador del visual empresarial.

Private Sub Form_Load()
cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn.ConnectionString = "C:\misdatos\personal.mdb"
cnn.Open
End Sub

Private Sub imprime_Click()
Set reporte = Nothing
With MDIform1.report
.ReportFileName = "c:\rpt\report1.rpt"
.WindowState = crptMaximized
.WindowTitle = "listado simple"
.RetrieveDataFiles
.Destination = crptToPrinter
.Connect=cnn
.PrintReport
End With

les agradezco de antemano cualquier error que me puedan ayudar a encontrar, por favor les ruego ser precisos y amables en sus respuestas como algunos los suelen ser. muchas gracias y saludos a todos.

F,M.