Hi friends,

I used a combo box to populate the data from my table and I did it. My code goes like this. This code is written on the form load.

    rsCategory.MoveFirst
    Do Until rsCategory.EOF
        Combo1.AddItem rsCategory.Fields("CATEGORYNAME").Value
        rsCategory.MoveNext
    Loop

My problem is this. If I click the CATEGORYNAME in the combo box, I want the CATEGORYID will be written in the Text6.Text.

Ex: CATEGORYID CATEGORYNAME
      1 Analgesic
      2 Antipyritec

Hope u get my point.

Thank u

Rudner

'Text6.Text = rsCategory.Fields("CATEGORYID").Value

Use the ItemData property:

Combo1.AddItem rsCategory.Fields("CATEGORYNAME").Value
Combo1.ItemData = Combo1.ItemData(Combo1.NewIndex) = rsCategory.Fields("CATEGORYID").Value


Marco