Public Function LoadComboList(rsMine As ADODB.Recordset, cboBox) With cboBox .Clear If rsMine.State = 0 Then rsMine.Open If Not rsMine.BOF Then rsMine.MoveFirst While Not rsMine.EOF If Not IsNull(rsMine!Nameoffieldtodisplay) Then .AddItem rsMine!Nameoffieldtodisplay .ItemData(.NewIndex) = rsMine!Nameoffield to be used as itemdata End If rsMine.MoveNext Wend End With End FunctionThere are probably some changes to be made for it to suit your exact needs but it is quite useful as I use it alot.