Visual Basic.NET - MOSTRAR EL CAMPO NOMBRE

TENGO LA SIGUIENTE CONSULTA:
TENGO UN BD EN SQL, UNA TABLA LLAMADA COMPANIA, CON LOS SGTES CAMPOS:
CODCIA, CODMUNICIPIO, CODDEPARTAMENTO
TENGO OTRA TABLA LLAMADA CIUDAD: CODMUNICIPIO, NOMBRE
TENGO POR ULTIMO LA TABLA DEPARTAMENTO: CODDEPARTAMENTO, NOMBRE
EN EL FORM COMPANIA TENGO UN COMBO QUE LO LLENO CON EL NOMBRE DE LA CIUDAD, Y UN LBLDEPARTAMENTO QUE DEBERIA MOSTRARME EL NOMBRE DEL DEPARTAMENTO PERO DE ACUERDO A ESTE COD QUE TENGO (EL CUAL NO ME MUESTRA NINGUN TIPO DE ERROR DE CODIFICACION)
Private Sub CboCiudad_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CboCiudad.SelectedIndexChanged

' Tomo el codigo de la ciudad
Dim sCodCiudad As String = Me.CboCiudad.SelectedValue
' Hago la consulta de la Ciudad
Dim dsCiudad As DataSet
dsCiudad = oSqlManager.Request("SELECT * FROM Ciudad WHERE CodMunicipio='" & sCodCiudad & "'")
If dsCiudad.Tables.Count > 0 Then
If dsCiudad.Tables(0).Rows.Count > 0 Then
'Encontro la Ciudad
Dim dsDpto As DataSet
'-*************************
dsDpto = oSqlManager.Request("SELECT * FROM Departamento WHERE CodDepartamento = '" & _
Convert.ToString(dsCiudad.Tables(0).Rows(0).Item("CodDepartamento")) & "'")

'***************************
If dsDpto.Tables.Count > 0 Then
If dsDpto.Tables(0).Rows.Count > 0 Then
LblDepartamento.Text = dsDpto.Tables(0).Rows(0).Item("NOMBRE")
End If
End If
End If
End If
End Sub
NO ME MUESTRA LO QUE QUIERO, ADEMAS SOLO ME MUESTRA EN EL COMBO LOS CODS DE LOS MUNICIPIOSM, (POR EJ BOGOTA ES COD 1, EN EL COMBO ME MUESTRA ES 1) YME SALE EL SGTE ERROR:

"LA CONVERSION DEL TIPO DATAROW VIEW AL TIPO STRING NO ES VALIDA"
Y SE BLOQUEA

AGRADEZCO LA COLABORACION QUE ME PUEDAN BRINDAR

No dices en que linea se produce el error. Asi a simple vista, se me ocurre que en el combo no hayas asignado la propiedad ValueMember y DisplayMember al cargar el combo.