Dim strSQL as String, rst As New ADODB.Recordset
strSQL= "UPDATE MyTab SET id="  & Me.txtIdNew &  " WHERE id="  & Me.txtIdOld &  " AND Rem="  & Me.txtRem
rst.Open strSQL, CurrentProject.Connection

Dim cmd As New ADODB.Command, par As ADODB.Parameter
With cmd
    .ActiveConnection = CurrentProject.Connection
    .CommandType = adCmdStoredProc
    Set par = .CreateParameter( "Dt1" , adDate, adParamInput, , MyVar1)
    .Parameters.Append par
    Set par = .CreateParameter( "Dt2" , adDate, adParamInput, , MyVar2)
    .Parameters.Append par
    Set par = .CreateParameter( "Days" , adTinyInt, adParamInput, , MyVar3)
    .Parameters.Append par
    .CommandText =  "MyStoredProc" 
    .Execute
End With