Bom dia a todos!!!

 

Na minha combo eu utilizo na propriedade Style = 2 - dropdowlist

     Porém com esta propriedade habilitada eu não consigo jogar os dados do meu bd para ela pois ela não aceita mais cbo.text = i

     Da um erro e diz que esta propriedade .text é somente de leitura!

 

     Alguém sabe me dizer como eu jogo o valor para lá?????

 

    rs.Open "SELECT * FROM tb_f ORDER BY nome", conn, adOpenKeyset, adLockOptimistic 

    If Not rs.BOF Then 

        rs.MoveMin
        If IsNull(rs("matricula")) = False Then
            txt_matric.Text = rs("matricula")
        End If  ' ...  preenchendo os dados

        If IsNull(rs("setor")) = False Then ' preencher a combo
        i = rs("setor")
            rs_set.Open " SELECT * FROM tb_s ", conn, adOpenKeyset, adLockOptimistic   ' abri o db setor
            If Not rs_set.BOF Then
                rs_set.MoveMin
                Do While rs_set("cod_setor") <> i
                    rs_set.MoveNext
                Loop
                txt_cbo.Text = rs_set("nome_setor") ' AQUI DA O ERRO embora na verdade agora não da mais mas tb não imprime os dados na cbo do registro
            Else
                txt_cbo.Text = "Itén cadastrado não encontrado!"
            End If
            rs_set.Close
        End If
    End If

 

pensei em mudar a propriedade mas ai teria que mudar em todo o projeto "coisa que não espero fazer", pensei no seguinte

usar a propriedade 1 - ... que tb permite que o usuario escreva algo

mas fazer com que quando o usuario clicasse com o mouse ou tentar digitar algo a combo se abriria - Alguem sabe como fazer isto !!!!!

 

                           Grato e aguardadno resposta!!!

ninguém???