Ayuda con combobox y sql

[asastrem]

es muy parecido a lo que tienes, solo que tengo un combo para empresas y un combo para areas

Private Sub llenaCmb()
Dim cnn As SqlConnection = Nothing

Try
cnn = New SqlConnection(CadenaCnn)
cnn.Open()
dsDatos = New DataSet

daEmp = New SqlDataAdapter("SELECT IdEmp, NomE, RFCE FROM Empresa", cnn)
daEmp.Fill(dsDatos, "Empresa")
cmbEmp.DataSource = dsDatos.Tables("Empresa")
cmbEmp.DisplayMember = dsDatos.Tables("Empresa").Columns("NomE").ToString
cmbEmp.SelectedIndex = 0

daAre = New SqlDataAdapter("SELECT IdAre, NomA FROM Area", cnn)
daAre.Fill(dsDatos, "Area")
cmbAre.DataSource = dsDatos.Tables("Area")
cmbAre.DisplayMember = dsDatos.Tables("Area").Columns("NomA").ToString
cmbAre.SelectedIndex = 0

Catch ex As Exception
Finally
If Not cnn Is Nothing Then
cnn.Dispose()
End If
End Try

End Sub