Type Mismatch

[mauricio2304 0]

Private Sub Form_Load() Dim strSql As String Dim rstconsulta As New ADODB.Recordset strSql = "select estNome, estUf from Estado order by estNome" rstconsulta.Open strSql, cnnBanco, adOpenForwardOnly Do While Not rstconsulta.EOF cboCidEstado.AddItem rstconsulta.Fields("estNome") cboCidEstado.ItemData(cboCidEstado.NewIndex) = rstconsulta.Fields("estUf") rstconsulta.MoveNext Loop Call sCarregaCidadeEnd subTenho esse código aqui que carrega uma combo com todos os estados, só que da erro type mismatch '13' e naum to consiguindo achar, o erro da nessa linha aqui:cboCidEstado.ItemData(cboCidEstado.NewIndex) = rstconsulta.Fields("estUf")Ja verifique os tipos de dados, nomes de variaveis e naum to conseguindo!!!Valeu!!!

[Graymalkin 0]

Qual o tipo do campo "estUf"? Obrigatoriamente ele deveria ser numérico. Se ele for texto, como imagino, você não pode fazer aquilo.Abraços,Graymalkin

[Dennys Lopes 0]

É, o ItemData só aceita numeros ... pelo que vi voce esta tentando jogar o UF dentro do Item Data .... sugiro voce a colocar o ID (seu campo de identificação da tabela) na SELECT e depois colocar ele dentro do ItemData