Public Sub SetCurrentLine( _ ByVal LineNum As Long _ )
CustomerEquipmentCards_BusinessPartners Object