Update CardType ComboBox in Business Partner form

Hi,

i have the following code

SBOComboOriginal = SBOForm.Items.Item(39).Specific

Select Case Variable

Case "C"

SBOComboOriginal.SelectExclusive("C", SAPbouiCOM.BoSearchKey.psk_ByValue)

Case "S"

SBOComboOriginal.SelectExclusive("S", SAPbouiCOM.BoSearchKey.psk_ByValue)

Case "L"

SBOComboOriginal.SelectExclusive("L", SAPbouiCOM.BoSearchKey.psk_ByValue)

End Select

it works fine for customers and lead, but when the value is "S" it should change to Vendor but the combo change to Lead.

Any ideas

thanks in advance