С кодом на запуск хранимки разобрался. А вот с function...

Вот код для запуска хранимки

Private Sub Blocada(Номер As Long, Chel As String, YesNo As Integer)
Dim cmd As ADODB.Command
Set tek = CurrentProject.Connection
Set cmd = New ADODB.Command
cmd.ActiveConnection = tek
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "Blocada"
cmd.Parameters("@Номер") = Номер
cmd.Parameters("@Name") = Chel
cmd.Parameters("@YesNo") = YesNo
cmd.Execute , , Options:=adExecuteNoRecords
Set cmd = Nothing
Set tek = Nothing
End Sub

А как function? И получить ответ? Или Хранимка может ответить?