a priori, yo diría que si el campo "Empresa" es un de tipo texto te has dejado la comilla simple, o sea:
Cita: OrdenSql = "Select Nombre From Departamentos Where Empresa='" & Trim(EmpresaSel) & "'"
te he puesto la comilla simple en negrita para que la veas.
saludos