Prueba con este código
Código:
With Combo1
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 = ""
End With
Este código recorre todas las filas del recordset y va agregando el valor de la columna "id_empleado" al combo.