$aFields = Variant(VT_ARRAY|VT_BSTR, 1);
$aFields->Put(0, "PX_Last");