dispatch xConn1   = GetAdoConnection()   // połączenie ADO
dispatch rsRAP3   = "ADODB.Recordset"   // recordset
dispatch xCmd1Ado

   xCmd1Ado = "ADODB.Command"
   xCmd1Ado.ActiveConnection = xConn1
   xCmd1Ado.CommandTimeout = 50000

//1 froma
   string sSQL3 =  Using "EXEC [przenies]  '%s' ",sData
//2 forma
        string sSQL3 = Using "EXEC [przenies] @data=",sData

   xCmd1Ado = sSQL3
   xcmd1Ado.Execute()

dispatch com = "ADODB.Command"
conn = GetADOConnection()
com.ActiveConnection = conn
com.CommandText = "przenies"
com.CommandType = adCmdStoredProc
com.Parameters.Refresh
com.Parameters(1).Value = sData

com.Execute()

#define adCmdStoredProc 4