Visual Basic - DataReport

Estimados.

Junto con saludarlos les solicito ayuda en lo siguiente tengo un reporte con datareport,que accedo a el a traves de un formulario, pero me imprime solo la primera hoja,el codigo que tengo es el siguiente

Dim A As String

If Combo1.Text = "" Then
MsgBox "INGRESE EL MES DEL REPORTE"
Combo1.SetFocus
ElseIf Text1.Text = "" Then
MsgBox "INGRESE EL AÑO PARA EL REPORTE"
Text1.SetFocus
ElseIf Combo2.Text = "" Then
MsgBox "INGRESE EL COBRADOR O RECAUDADOR"
Combo2.SetFocus
Else


If rs Is Nothing Then Exit Sub
If rs.State = adStateOpen Then
Command1_Click
A = MsgBox("Desea mostrar el reporte ahora", vbYesNo)
If A = vbYes Then
Set DataReport1.DataSource = rs
DataReport1.Show vbModal, Me
End If
End If
End If

por favor ayudenme.
desde ya muchas gracias