[Resolvido]Combobox através de código vba

Oi Amigos
Como fazer pra listar os itens da combobox através de código vba (uma consulta sql)? Fazer pelas opções do access é fácil, mas quero fazer algo específico. Vi esse código aqui mas não sei como fazer ele funcionar fora de um módulo:

Código:

Const cstrSelect _
    = " SELECT ID," _
    & "  chr(9)+Establishment & ', '+City AS Display," _
    & "  Establishment," _
    & "  City," _
    & "  State" _
    & " FROM Hotels"
Const cstrOrderBy _
    = " ORDER BY City, Establishment, ID"

Observe que ele mostra uma combinação de dois campos da tabela como exibição na combobox.
Aproveitando o ensejo, gostaria de gravar na tabela que o combobox alimentará apenas um desses campos aí, por exemplo City.
Obrigado!

Boa tarde,

A sintaxe básica para popular uma combobox/listbox via VBA é

Código:

suaCombo.RowSource = "SELECT [campos] FROM [tabela]"

Voce pode inserir este comando no evento Ao Abrir do formulário e a combo já aparecerá com os valores que voce inseriu no argumento SQL. Você pode consultar o repositório que encontrará vários exemplos.

Abraço.

Obrigado!