see code

' call the subroutine FillCombobox Call FillComboBox(cmbArtist, "Select Artist from Bands", "Artist") ' The subroutine FillCombobox Public Sub FillComboBox(Comboboxname As ComboBox, SQL As String, Fieldname As String) Dim ado As ADODB.Connection Dim rsTemp As ADODB.Recordset Set ado = CreateObject("ADODB.Connection") ado.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\CDCollectie.mdb;Persist Security Info=False" Set rsTemp = CreateObject("ADODB.Recordset") With rsTemp .LockType = adLockReadOnly .CursorType = adOpenForwardOnly .Open SQL, ado End With Comboboxname.Clear Do While Not rsTemp.EOF Comboboxname.AddItem rsTemp(Fieldname) rsTemp.MoveNext Loop rsTemp.Close Set rsTemp = Nothing Comboboxname.ListIndex = 0 ado.Close Set ado = Nothing End Sub