strSQL = "Select Distinct [Discription] From [data$] Order by [Discription]" closeRS OpenDB cmbDiscription.Clear rs.Open strSQL, cnn, adOpenKeyset, adLockOptimistic If rs.RecordCount > 0 Then Do While Not rs.EOF cmbDiscription.AddItem rs.Fields(0) rs.MoveNext Loop Else MsgBox "I was not able to find any unique Discription(s).", vbCritical + vbOKOnly Exit Sub End If