CREATE TABLE [dbo].[_ttt](
	[ffrom] [nvarchar](128) NULL,
	[dtCrt] [datetime] NULL,
	[kdz] [int] NULL
) ON [PRIMARY]

GO

ALTER TABLE [dbo].[_ttt] ADD  CONSTRAINT [DF__ttt_dtCrt]  DEFAULT (getdate()) FOR [dtCrt]
GO

CREATE PROCEDURE _TmpTest
AS
BEGIN
	-- exec _TmpTest
	-- select * from [_ttt] order by dtcrt
	--delete from [_ttt]
	
	SET NOCOUNT ON;
  INSERT INTO [_ttt]([kdz])
  values (1)
  
  select COUNT(*)as cnt from [_ttt]
END
GO
grant execute on _TmpTest TO Public
GO

Public Function editSQLquery(QName As String, stSQL As String, Optional TimeOut As Long = 60) As Boolean

  Dim dbsTMP As DAO.database
  Dim qdfTMP As DAO.QueryDef
  On Error GoTo ErrHandler
  Const prcName As String = "editSQLquery"
  del_tmp_tbl_all
  
  Set dbsTMP = CurrentDb
  Set qdfTMP = dbsTMP.QueryDefs(QName)
  qdfTMP.sql = stSQL
  qdfTMP.ODBCTimeout = TimeOut
  Debug.Print stSQL

Success:
  editSQLquery = True

mEx:
    Set qdfTMP = Nothing
    Set dbsTMP = Nothing
    Exit Function

ErrHandler:
  msgbox Err.Description 'ErrorSave mdlName, prcName, Err.number, "(" & Err.Description & ")" & vbCrLf & "в процедуре " & prcName & " of Module " & mdlName, stSQL
  Resume mEx
  Resume
End Function

Public Function tmpTest() As Long
  Dim rst As DAO.Recordset
  'пример, демонстрирующий, что открытие рекордсета с запросом в виде "SELECT .. FROM запрос", который обращается к хранимой процедуре, вызовет эту хранимку дважды
	'Возможно, что аналогично происходит не только с обращением к хранимке, но и с любым SELECT`ом
  'В приведенном примере после каждого вызова в таблицу добавляется 2 записи, хотя в хранимке происходит добавление только одной записи
  'При этом вывод результатов происходит именно для результата первого запуска хранимки, а не второго.
  editSQLquery "sql_Any", "exec _TmpTest"
  
  Set rst = CurrentDb.OpenRecordset("SELECT * FROM sql_Any", dbOpenSnapshot)
  'После этого вызова в базе уже 2 строки в таблице [_ttt], а рекордсет вернет значение 1. После следующего вызова он вернет значение 3, потом 5

  If rst.RecordCount <= 0 Then
    MsgBox "Нет данных!", vbExclamation, NameApp
    Exit Function
  End If
  Debug.Print rst!Cnt
End Function

Public Function tmpTest2() As Long
  Dim sql As String, NeedVozvr As Boolean, N As Long
  Dim rst As DAO.Recordset

  editSQLquery "sql_Any", "exec _TmpTest"
  
  'А вот такое обращение выполнит хранимку один раз
  Set rst = CurrentDb.OpenRecordset("sql_Any", dbOpenSnapshot)
  If rst.RecordCount <= 0 Then
    MsgBox "Нет данных!", vbExclamation, NameApp
    Exit Function
  End If
  Debug.Print rst!Cnt
End Function