oConn=createobject("ADODB.connection") oConn.open("DSN=YourAS400Name;UID=YourUserID;PWD=YourPassword") oCom=CREATEOBJECT("ADODB.Command") With oCom .CommandText = "{CALL LibraryName.StoredProcedureName(?,?)}" &&Pass two parameters .ActiveConnection = oConn .CommandType = ADCMDTEXT .Prepared = .T. .Parameters.Append (.CreateParameter("Parm1",adChar,adParamInputOutput,25)) .Parameters.Append (.CreateParameter("Parm2",adChar,adParamInputOutput,10)) .Parameters("Parm1").value = "SOME PARM 1 DATA HERE " .Parameters("Parm2").value = "HELLOWORLD" .Execute m.Parm1Data=.Parameters("Parm1").value m.Parm2Data=.Parameters("Parm2").value Endwith Release oCom oConn.close Release oConn