Hi vbuser1976 and the rest of u.

After changing the code a bit it worked. However I can show only 1 field in the combobox, FunctieID or Description. How do I show them both?

If I type:
cboHell.AddItem Rs.Fields("functieID", "Description")
I get an error that I must use a listseperator.

Please advice.

Thanx.

(The code I use to populate the combobox)
PS1: I named the combobox: cboHell :-)
PS2: I do not like to get 1000 errors before monday morning 9 o'clock!


Private Sub PopulateComboBox()

'Comboboxname.Clear
cboHell.Clear
Rs.ActiveConnection = Cn
Rs.Source = cstFunctie
Rs.Open
Do Until Rs.EOF
cboHell.AddItem Rs.Fields("functieID")
Rs.MoveNext
Loop

Rs.Close
Set Rs = Nothing
End Sub