CREATE PROCEDURE getnext @id bigint, @oper int
AS
declare @numb int
SELECT top  1  @numb =M_ID FROM main WHERE M_STATUS =  0  and M_ID >  @id
EXECUTE setopen @numb, @oper
SELECT M_ID, M_PHONE, M_NAME, M_T_AGE, M_T_PREFTIME FROM main WHERE M_ID=@numb
GO

Dim res As Integer
    Dim cmd As ADODB.Command
    Dim prm As ADODB.Parameter
    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset
    Set cmd = New ADODB.Command
    Set cmd.ActiveConnection = CurrentProject.Connection
    cmd.CommandText = "getnext"
    cmd.CommandType = adCmdStoredProc
    Set prm = New ADODB.Parameter
    Set prm = cmd.CreateParameter("id", adInteger, adParamInput,  10 , Me.M_ID)
    cmd.Parameters.Append prm
    Set prm = cmd.CreateParameter("oper", adInteger, adParamInput,  10 , Me.OPER_ID)
    cmd.Parameters.Append prm
    Set rst = cmd.Execute
    res = rst.Fields( 0 ).Value
    MsgBox res

rst.MoveFirst
res = rst.Fields( 0 ).Value

rst.Open
rst.MoveFirst
res = rst.Fields( 0 ).Value
rst.Close