Udskrive flere rapporter, men kun hvis data

Jeg skal udskrive data for en række afdelinger, men kun hvis der er data. Da der skal udskrives en rapporter per afdeling, looper jeg igennem listen over afdelinger, og vil så i rapporten checke, om der er data.
Loopet har jeg lavet på flg måde:
Private Sub CmdBaseline_Click()
Dim rst As Recordset
On Error GoTo errhandler

  Set rst = CurrentDb.OpenRecordset("Select [dept] from [QRY_Baseline_All_Depts_1] ")
  While Not rst.EOF
      [Forms]![frmupdatetables].[Afd] = rst![Dept] ' skjult felt på formen
      DoCmd.OpenReport "Rpt_Baseline", acNormal, ""
      rst.MoveNext
     
  Wend

errhandler:
      If Err = 2501 Then
      rst.MoveNext
      Resume
  End If

End Sub

og i rapporten har jeg flg:

Private Sub Report_NoData(Cancel As Integer)
Cancel = True

End Sub

Problemet er bare, at den ikke udskriver noget overhovedet... Det gik først galt, da jeg indsatte checket i rapporten samt errhandler'en, så mon ikke det ligger der i. Jeg kan bare ikke lige gennemskue hvor det går galt.