SoloCodigo

hola estoy intentando guardar el codigo del departamento que cargo en un combobox y al guardar me da el siguiente error: La conversión del tipo 'DataRowView' en el tipo 'String' no es valida

el combo de departamentos lo cargo asi

 Private Sub ListaDeptos()
        Dim deptos As New ClsDepartamentos
        With Me.ComboDeptos
            .DisplayMember = "nombredepto"
            .ValueMember = "codigo"
            .DataSource = deptos.cargaDeptos(conexion).Tables("tblDeptos").DefaultView
            .SelectedIndex = -1
        End With
    End Sub

y asi guardo los datos del municipio incluyendo el codigo del departamento al cual pertenece

Sub IncluirMupio()
        If Not ValidaDatos() Then
            Exit Sub
        End If
        Try
            Dim objIncluir As New ClsMunicipios
            Dim codigo As String = Me.txtCodigo.Text.Trim
            Dim municipio As String = Me.txtNombre.Text.Trim.ToUpper
            Dim cdepto As String = (Me.ComboDeptos.SelectedValue) 'AQUI ESTA EL PROBLEMA
            objIncluir.IncluirMupio(codigo, municipio, cdepto, conexion)
            btnGuardar.Enabled = False
            btnNuevo.Enabled = True
            MessageBox.Show("Municipio Incluido", "Municipios", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch err As Exception
            MessageBox.Show(err.Message)
        End Try
    End Sub

espero que alguien me ayude a solucionar esta dificultad y desde ya agradezco

Muchas gracias por tu ayuda lo he solucionado