[Resolvido]Botão de opção e caixa de combinação

Boa tarde! Amigos, é possível por código ao escolher um botão de opção preencher uma caixa de combinação com determinados nomes?
tentei fazer da forma abaixo mais só exibir somente um nome.

Código:

Private Sub opcaoespecie_Click()
Select Case opcaoespecie

 Case 1
    Me.caixadecombinação.Value = "texto1"
    Me.caixadecombinação.Value = "texto2"                                       
 Case 2
    Me.caixadecombinação.Value = "texto3"
    Me.caixadecombinação.Value = "texto4"
 Case 3
   Me.caixadecombinação.Value = "texto5"
   Me.caixadecombinação.Value = "texto6"
   Me.caixadecombinação.Value = "texto7"
                                           "                             
 
   End If
   End Select

Olá Alberto Moura;

Tente trocar .Value por .ControlSource nas suas instruções.

Espero o ter ajudado.

Boa noite Alberto, primeiramente peço que reveja seu formulario pois pelo codigo postado tenho a impressao que so exite uma caixa de combinacao sendo que cada opcao possui no minimo dois textos.

este codigo deve ser posto no evento "apos atualizar" do quadro e nao ha necessidade de colocar o "value" ou "controlsource"

Boa noite amigos
Resolvido com ajuda do amigo Alaxandre Fim, conforme código abaixo:
Desde já grato com ajuda dos demais...

Código:


Private Sub CarregaCombo()

'==========================================================================
'Este procedimento é necessários para limpar o combo toda vez
'que remontá-lo. Do contrário, os dados serão duplicados

cboDados.RowSource = Empty 'Define a fonte de registro do combobox como vazio
cboDados.Requery 'Atualiza o combobox vazio

'============================================================================

'Adcionando itens ao combo

With cboDados
.AddItem "1º item da Lista"
.AddItem "2º item da Lista"
.AddItem "3º item da Lista"
.AddItem "4º item da Lista"
.AddItem "5º item da Lista"
End With

End Sub


Att,

Alexandre