Remove the SQL statement that populates each combo box from the Row Source line on the property sheet, Data tab. Instead, place it into a few lines of code the "On Enter" event. Code would look something like this:
Dim strSQL as String
strSQL = "SELECT DISTINCT [TableName].[FieldName] FROM...