To Display Two Values In Combobox But In Database Will Store Only One Value Out Of That

hi friends
i am using visual studio 2005. i need one combo box which will display two values. one is "Designation" i.e.("clerk,accountant,manager,officer,shopkeeper) and another "Designation ID" i.e.(1,2,3,4,5 and respectively) i made table of "Designation Master" in sql server 2000 including field of "Designation ID, Designation". manually i am inserting id and designation in that table.
what i want exactly i have one customer form which contain a "combobox" for "Designation" column i achieved "Designation ID" and "Designation" in that combo box also but when i will go for save i want that i will store only "Designation ID" i don't want to store "Designation" in my "Designation" column which is in "Customer table" i am attaching code which store "Designation ID" and "Designation" in customer table but i want only "Designation ID" only
bold line which is difficult for me to inserting only "designationId" in customer table.




Inventory_Master.cntData.Open()

cmdstr = "Select DesigID,Designation from Designation_Master"

cmd = New SqlCommand(cmdstr, Inventory_Master.cntData)

cdrCustomer = cmd.ExecuteReader()

If cdrCustomer.HasRows = True Then

While cdrCustomer.Read()

cmddesig = cdrCustomer.Item(0).ToString.PadLeft(1) + cdrCustomer.Item(1).ToString.PadLeft(25)

cbodesignation.Items.Add(cmddesig)

End While

Else

End If

Inventory_Master.cntData.Close()



Inventory_Master.cntData.Open()

cmd = New SqlCommand("insert CUSTOMER(Membership_No,Member_Initial,Member_Name,Member_Birthdate,Gender,Res_Telno,Mobile_No,Res_Addr1,Res_Addr2,Res_City,Res_Pincode,Landmark,Company_Name,Comp_Addr1,Comp_Addr2,Comp_Telno,Comp_City,Comp_Pincode,Designation,Credit_Limit,Income_Mthly,Email_ID,Note) values (@Membership_No,@Member_Initial,@Member_Name,@Member_Birthdate,@Gender,@Res_Telno,@Mobile_No,@Res_Addr1,@Res_Addr2,@Res_City,@Res_Pincode,@Landmark,@Company_Name,@Comp_Addr1,@Comp_Addr2,@Comp_Telno,@Comp_City,@Comp_Pincode,@Designation,Convert(money,@creditlimit),@Income_Mthly,@Email_ID,@Note)", Inventory_Master.cntData)

cmd.Parameters.AddWithValue("@Membership_No", txtmebno.Text)

cmd.Parameters.AddWithValue("@Member_Initial", cbomebname.Text)

cmd.Parameters.AddWithValue("@Member_Name", txtmebname.Text)

cmd.Parameters.AddWithValue("@Member_Birthdate", dtime.Value)

cmd.Parameters.AddWithValue("@Gender", cbogender.Text)

cmd.Parameters.AddWithValue("@Res_Telno", txttelno.Text)

cmd.Parameters.AddWithValue("@Mobile_No", txtmobileno.Text)

cmd.Parameters.AddWithValue("@Res_Addr1", txtresaddr1.Text)

cmd.Parameters.AddWithValue("@Res_Addr2", txtresaddr2.Text)

cmd.Parameters.AddWithValue("@Res_City", txtrescity.Text)

cmd.Parameters.AddWithValue("@Res_Pincode", txtrespin.Text)

cmd.Parameters.AddWithValue("@Landmark", txtlandmark.Text)

cmd.Parameters.AddWithValue("@Company_Name", txtcompname.Text)

cmd.Parameters.AddWithValue("@Comp_Addr1", txtcompaddr1.Text)

cmd.Parameters.AddWithValue("@Comp_Addr2", txtcompaddr2.Text)

cmd.Parameters.AddWithValue("@Comp_Telno", txtcomptelno.Text)

cmd.Parameters.AddWithValue("@Comp_City", txtcompcity.Text)

cmd.Parameters.AddWithValue("@Comp_Pincode", txtcomppin.Text)

cmd.Parameters.AddWithValue("@Designation", cbodesignation.Text.PadLeft(1, CChar(CStr(1)))) [ help me for inserting designation in this line]

cmd.Parameters.AddWithValue("@creditlimit", txtcreditlimit.Text)

cmd.Parameters.AddWithValue("@Income_Mthly", txtincomemthly.Text)

cmd.Parameters.AddWithValue("@Email_ID", txtemailid.Text)

cmd.Parameters.AddWithValue("@Note", rtxtNote.Text)

cmd.ExecuteNonQuery()

Inventory_Master.cntData.Close()

MsgBox("RECORD SAVED")