Quita en With y el End With y dejalo así
Código:
Combo1.Clear
While Not rs.EOF 'Mientras no sea el Final del Recordset
Combo1.AddItem rs("id_empleado") 'Agrega el valor de la columna "id_empleado" al combo
rs.MoveNext 'Se mueve a la siguiente fila del recordset
Wend
Combo1 = ""