Access 2003 - VBA zbiranje izpisov

Imam dveh poročili , poročilo1 z imenom in naslovom zaposlenih , poročilo2 z izračunom opravljenih ur. Ta poročila bi rad tiskal na sledeči način (na enem tiskalniku z več predali):
1. oseba - poročilo1
1. oseba - poročilo2
2. oseba - poročilo1
2. oseba - poročilo2
.
.
.

Se pravi štos je v tem, da mi nebi bilo potrebno zlagati teh poročil.

Našel sem tole:

Sub PrintReportsByEmployee()

Dim sSQL As String
Dim rs As Recordset

sSQL = "SELECT ID FROM BZD;"
Set rs = CurrentDb.OpenRecordset(sSQL, dbOpenSnapshot)

While Not rs.EOF
DoCmd.OpenReport "poročilo1", acViewPreview, , "[ID]=" & rs(0)
DoCmd.PrintOut acPrintAll
DoCmd.Close acReport, "poročilo1"
DoCmd.OpenReport "poročilo2", acViewPreview, , "[ID]=" & rs(0)
DoCmd.PrintOut acPrintAll
DoCmd.Close acReport, "poročilo2"
rs.MoveNext
Wend
Set rs = Nothing

End Sub

Ko zaženem modul, mi javi napako run-time error '3001':Invalid argument in mi z rumenim obarva Set rs = CurrentDb.OpenRecordset(sSQL, dbOpenSnapshot).

Kakšna ideja?