Falha No Crystal Reports

[MORDOMO 0]

Bom dia,

Estou tendo dificuldades de achar o erro ao clicar no botão imprimir no VB6.

Aparece a seguinte mensagem de erro: Rum-time error '20728': F

Aparece neste código:

Private Sub Command2_Click()
cr1.DataFiles(0) = App.Path & "\boleto2001.mdb"
cr1.WindowState = 2
cr1.WindowControlBox = True
cr1.ReportFileName = App.Path & "\boleto2016.rpt"
cr1.Destination = 0
cr1.Action = 1
End Sub

Sou leigo no assunto, e preciso da ajuda de vocês.

Desde já agradeço.