Option Compare Database
Public rst1 As New ADODB.Recordset
Public rst2 As New ADODB.Recordset
Public rst3 As New ADODB.Recordset

Private Sub Report_Open(Cancel As Integer)
Date1 = Forms("sel_analiz").ffrom
Date2 = Forms("sel_analiz").fto
idfindep = Forms("sel_analiz").fidfindep
findep = Forms("sel_analiz").fidfindep.Column( 1 )

rst1.Open "exec dbo.kadr_analiz_period @findep = " & idfindep & ",    @Date1  = " & sqldata(Date1) & ", @Date2 = " & sqldata(Date2), CurrentProject.Connection, adOpenStatic, adLockReadOnly

rst2.Open "exec ... " ), CurrentProject.Connection, adOpenStatic, adLockReadOnly

End Sub

Private Function GetValRST1( Recordfilter , Recordfield )
on error resume next
    rst1.FILTER = Recordfilter 
GetValRST1 = rst1(Recordfield )
End Function

Private Function GetValRST2( Recordfilter , Recordfield )
on error resume next
    rst2.FILTER = Recordfilter 
GetValRST2 = rst2(Recordfield )
End Function