Private Sub Report_Open(Cancel As Integer)
Dim rstReport As Recordset
 Set rstReport = CurrentDb.OpenRecordset("SELECT * FROM группы WHERE id =" & Forms!Моя.Список2) 'открываем рекордсет отчета с
 'именем rstReport в дальнейшем,обращаемся к нему ВНУТРИ процедуры-если RS объявить в разделе описаний модуля к нему можно
 'обращаться из ЛЮБОЙ процедуры модуля  
End Sub

DoCmd.OpenReport "ReportName", acViewPreview, , "id=" & Forms!Моя.Список2 ' или & Me.Список2