depoisteconto,

Boa Noite!

Bom... para perguntas genéricas... respostas igualmente genéricas...

Seria algo mais ou menos assim:

    ' Obter posição a ser gerada
    ComandoSQL = "SELECT * FROM Tabela1" & vbCrLf

    ' Abrir cursor
    Set rstSQL = cnnSQL.Execute(ComandoSQL)

    ComboBox1.Clear
    
    While Not rstSQL.EOF
        ComboBox1.AddItem rstSQL!Coluna_A
        ComboBox1.AddItem rstSQL!Coluna_B
        ComboBox1.AddItem rstSQL!Coluna_C
        rstSQL.MoveNext
    Wend

    rstSQL.Close

Caros colegas, bom dia!

Desculpem postar e demorar tanto para responder, mas não é sempre que tenho acesso a internet. Vamos lá:

Morel, não consegui implentar sua sugestão, mas com ela pensei em criar um array e listá-lo no combobox.

Dim Lista(1 To 2) As String

Lista(1) = nNome1
Lista(2) = nNome2
Lista(3) = nNome3

Me.Nome_CP2.List = Lista

As Strings nNome eu obtive através de um Select no banco.

Obrigado pela dica.

At