Me.агент=CurrentProject.Connection.Execute("select dbo.get_agent(" & Me.Район & ")"
)( 0 )

Dim p1 As ADODB.Parameter
Dim p2 As ADODB.Parameter
Dim cmd As New ADODB.Command

With cmd
    Set .ActiveConnection = CurrentProject.Connection
    Set p1 = .CreateParameter("ret", adVarChar, adParamOutput,  50 )
    Set p2 = .CreateParameter("arg", adVarChar, adParamInput,  50 , me.Район )
    .Parameters.Append p1
    .Parameters.Append p2
    .CommandText = "set ? = dbo.get_agent( ? )"
    .CommandType = adCmdText
    .Execute
End With

Me.агент=p1.value