Public Function NaProhojdenie(StorProcName As String, StorProcParamType As Byte, StorProcParamValue As Integer)

Dim cmd As New ADODB.Command, rst As New ADODB.Recordset, WhereParam As Parameter

cmd.ActiveConnection = CurrentProject.Connection
cmd.CommandType = adCmdStoredProc
cmd.CommandText = StorProcName

Select Case StorProcParamType
Case  1 
    Set WhereParam = cmd.CreateParameter( "@ВхНомер" , adBigInt, adParamInput, , Forms![АРМ_Контроль]![ВхНомер])
Case  2 
    Set WhereParam = cmd.CreateParameter( "Where" , adSmallInt, adParamInput, , StorProcParamValue)
End Select

cmd.Parameters.Append WhereParam

'----------------------------------------------
'1
Set rst = cmd.Execute


'2
'rst.Open cmd, , adOpenKeyset, adLockOptimistic, adCmdStoredProc
' ----------------------------------------------
 
    DoCmd.OpenForm  "СписокПрохождения" , acFormDS
    Set Forms( "СписокПрохождения" ).Recordset = rst
    
rst.Close
Set WhereParam = Nothing
Set rst = Nothing
Set cmd = Nothing

End Function

Sub Кнопка11_Click() 'КНОПКА Все контракты
On Error GoTo Err_Кнопка11_Click

Call NaProhojdenie( "dbo.ДляПрохождения_аппарат" ,  2 ,  0 )
    
Exit_Кнопка11_Click:
    Exit Sub
Err_Кнопка11_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка11_Click
End Sub