FALHA NO CRYSTAL REPORTS (AJUDA URGENTE)

[Mordomo]

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.