'use presets linked to the Customers form to retrieve customer data.

'In this case presets 1 and 2 will be used.

Set Frm = IsahObjects.Get("InfoFormObject")

Frm.ProgramCode = 10000 'Customers

Frm.SetContextCodeKeyField 1, "CustId"

Frm.SetContextCodeKeyField 2, "CustId"

Frm.ShowModal

Set Frm = Nothing