Mostrar Resultado de Búsqueda en ComboBox

Tenemos 2 tablas relacionadas: Empleados y Departamentos
Empleados:
Id (key)
Nombre
IdDepartamento

Departamentos:
Id (key)
NombreDepartamento
Descripcion

En el formulario ponemos 3 textbox y un combo:

TextBoxNombre (para cargar el nombre del empleado)
TextBoxIdDepartamento (para cargar el IdDepartamento)
TextBoxDescripcion (para cargar la descripción del departamento asociado a
ese empleado)
comboDepartamentos (para cargar el listado de departamentos)

para ds1 (dataset): SELECT * FROM Empleados
para ds2 (dataset): SELECT * FROM Departamentos)

Private sub Form_Load (ByVal sender ...)
Dim ds1 As New DataSet
Dim ds2 As New DataSet

Dim Adaptador1 As New OleDbDataAdapter
Dim Adaptador2 As New OleDbDataAdapter

dim objetoBinding As BindingManagerBase

'Aquí falta introducir los command correspondientes a ds1 y ds2
Adaptador1.Fill(ds1,"Empleados")
Adaptador2.Fill(ds2,"Departamentos")

comboDepartamentos.ValueMember="Id"
comboDepartamentos.DisplayMember="NombreDepartamento"
comboDepartamentos.DataSource=ds2.Tables("Departamentos)

Dim b As New Binding("Text",ds2.Tables("Departamentos"),"Descripcion")
TextBoxDescripcion.DataBindings.Add(b)

b = New Binding("Text",ds1.Tables("Empleados"),"Nombre")
TextBoxNombreEmpleado.DataBindings.Add(b)

b = New Binding("Text",ds1.Tables("Empleados"),"IdDepartamento")
TextBoxIdDepartamento.DataBindings.Add(b)

objetoBinding=Me.BindingContext(ds1.Tables("Empleados"))
End Sub


Private Sub IdDepartamento_TextChanged(ByVal sender ...) _
Handles IdDepartamento.TextChanged
comboDepartamentos.SelectedValue = IdDepartamento.Text
End Sub


Private Sub comboDepartamentos_SelectedValueChanged(ByVal sender ...) _
Handles comboDepartamentos.SelectedValueChanged
IdProvincia.Text = Provincias.SelectedValue.ToString
End Sub