Private Sub Form_Load()
DoCmd.OpenReport "Report1", acViewPreview
End Sub