Modifica las comillas en esta instrucción, así:
rst.Open "Select * from empleados", cn, adOpenStatic, adLockOptimistic
y elimina estas dos líneas
Set Combo1.DataSource = rst
Set Combo1.DataMember= rst
y pon esto:
Do Until rs.EOF
Combo1.AddItem rst!nombres
Loop 