Carregando uma Combo com campos da Tabela

[Macêdo]

Para carregar uma combo com os dados de um campo da tabela faça a seguinte sub:

Não esquecendo que devemos estar com um conexão "cnn" aberta e declarar no General Declarations do Form:

Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset

Agora a sub, digamos que vamos preencher a combo COMBO_NOME com o NOME dos clientes da tabela CLIENTES

Private Sub preencher_combo()

'preenchendo o recordset com os nomes da tabela

With cmd
    .ActiveConnection = cnn
    .CommandType = adCmdText
    .CommandText = "select  NOME from CLIENTES"
    Set rs = .Execute
End With

'jogando os nomes do recordset na combo

With rs
     Do While Not rs.EOF  'enquanto não chegar ao final dos registros
     If Not IsNull(rs!NOME) Then 'se o campo não tiver valor nulo, isto evita criar espaços em branco
     COMBO_NOME.AddItem rs!NOME 'adiciona o registro à combo
     End If
     rs.MoveNext 'move para o proximo registro
     Loop   
End With

End Sub

Chame a sub para preencher a combo:

Private Sub Form_Load()
preencher_combo
End Sub

[Oalves]

gostaria de saber como eu faço pra, que a lista aparceça dentro da minha combobox???