Erro Em Cadastro

[gross]

Galera eta erro chato...manja

tenho duas tebelas

CADASTRO e CIDADE

A tabela CIDADE teu um campo cdCidade que é chave primária

A tabela CADASTRO tem uma tela com DropDown list que eu preencho fazendo uma funçao CriaDataSet() com os dados ta tabela CIDADE e ta funcionando bem, pois aparece todos os valores corretamente selecionando com

Me.lstCidade.DataValueField = "cdcidade"

e mostrando com

Me.lstCidade.DataTextField = "nomecidade"

Tudo funciona certo mas na hora de incluir um registro ele busca no DropDown o valor

With Cadastra 

        .ConnectionString = StrConn
        .cdCidade = CInt(lstCidade.SelectedItem.Value)

End With

O problema é que sempre que cadastro ele passa o valor da primeira cidade...não importa qual o valor que eu cadastre.. tipo ele ta preenchendo corretamente a combo pois já vi o html gerado e todos os valores estão certos.... mas não ta passando o valor da cidade no .Value tipo se seleciono a cidade que tem valor 2,3 ou qualquer poutro ele passa 1... ahe ta o código do Data set:

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim ccidade As New Classes.Cidade()
        ccidade.ConnectionString = StrConn
        Me.lstCidade.DataTextField = "nomecidade"
        Me.lstCidade.DataValueField = "cdcidade"
        Me.lstCidade.DataSource = ccidade.Dataset_Cidade
        Me.lstCidade.DataBind()        

    End Sub

tudo funciona bem menos a inserção...porque??? tipo o INSERT no bd funciona pois utilizo a mesmo classe pra outras telas... me ajudem:

        .cdCidade = CInt(lstCidade.SelectedItem.Value)

ta errado???

[gross]

já funfou aki.............

O que era num sei mas reescrevi uma parte do código compilei e funcionou...eu hein?!