#include adovfp.h clear public oConnection, oCommand, oRecordSet oConnection = CreateObject("adodb.connection") oCommand = CreateObject("adodb.command") oConnection.Open("SVEIN","sa","") With oCommand .ActiveConnection = oConnection .CommandText = "ITEMSPERCLASS" .CommandType = adCmdText EndWith oClassParameter = oCommand.CreateParameter( "@pnClassID" , adInteger , adParamInput , 4 , 45 ) oClassParameter = CreateObject("adodb.parameter") With oClassParameter .Name = "@pnClassID" .Type = adInteger .Direction = adParamInput .Value = 45 EndWith oCommand.Parameters.Append(oClassParameter) With oClassParameter .Value = 45 EndWith oRecordSet = createobject("adodb.recordset") with oRecordSet .CursorLocation = adUseClient .LockType = adLockBatchOptimistic .CursorType = adOpenStatic EndWith oRecordset = oCommand.Execute ?oRecordSet.RecordCount && Prints -1 ?oRecordSet.CursorLocation && Prints 2, ADUSESERVERTIA