erro: Specified cast is not valid.

[carloss 0]

Tenho uma função que recupera os detalhes de uma cidade, estou usando objetos de negócio, mas está me resultando o seguinte erro:

 

Specified cast is not valid.

Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

 

Exception Details: System.InvalidCastException: Specified cast is not valid.

 

Source Error:

 

 

Line 30: cod_cidade.Text = Request.QueryString("cod_cidade")

Line 31: objCidade.strConn = ConfigurationSettings.AppSettings("strConn")

Line 32: dadosCidade = objCidade.detalhes_cidade(CInt(Request.QueryString("cod_cidade")))

Line 33: desc_cidade.Text = dadosCidade.desc_cidade

Line 34: End If

 

 

Source File: C:\asp.net\prap\prap\admin\edita_cidade.aspx.vb Line: 32

 

 

   Public Class dadosCidade        Public desc_cidade As String        Public estado As String        Public geografia As String        Public dist_media As String        Public clima As String        Public habitantes As Double        Public historia As String        Public mapa As String        Public cod_cidade As Integer    End Class        Public Function detalhes_cidade(ByVal intCod_cidade As Integer) As dadosCidade            'conexão            Dim objconn As New SqlConnection(strConn)            'recuperando detalhes            Dim drDet As SqlDataReader            Dim prmDet As SqlParameter            Dim objCidade As New dadosCidade()            Dim cmdDet As New SqlCommand("sp_detalhes_cidade", objconn)            cmdDet.CommandType = CommandType.StoredProcedure            'parametros                        prmDet = cmdDet.Parameters.Add("@cod_cidade", SqlDbType.Int)            prmDet.Value = intCod_cidade            Try                cmdDet.Connection.Open()                drDet = cmdDet.ExecuteReader            Catch ex As Exception                Throw ex            End Try            'adicionando dados ao datareader            While drDet.Read                objCidade.desc_cidade = drDet.GetString(0)                objCidade.estado = drDet.GetString(1)                objCidade.geografia = drDet.GetString(2)                objCidade.dist_media = drDet.GetString(3)                objCidade.clima = drDet.GetString(4)                objCidade.habitantes = drDet.GetDouble(5)                objCidade.historia = drDet.GetString(6)                objCidade.mapa = drDet.GetString(7)            End While            drDet.Close()            'retorno            Return objCidade        End Function'função para carregar os dados    Public Sub Page_Load(ByVal obj As Object, ByVal e As EventArgs)        If Not (Page.IsPostBack) Then            'criando objetos            Dim objCidade As New prapAdmin.cidade()            Dim dadosCidade As New prapAdmin.dadosCidade()            'atribuindo valores            cod_cidade.Text = Request.QueryString("cod_cidade")            objCidade.strConn = ConfigurationSettings.AppSettings("strConn")            dadosCidade = objCidade.detalhes_cidade(CInt(Request.QueryString("cod_cidade")))            desc_cidade.Text = dadosCidade.desc_cidade        End If    End Sub

[carloss 0]

ninguem?????????