[Resolvido]Combobox desacoplada

Bom dia!

Esse código abaixo.
Porém, poderá ter problemas com o campo nome, por se tratar de uma palavra reserva.
Seria bom alterar para outro nome.

Sobre formulários desacoplados, eu tenho um treinamento, caso lhe interesse se aprofundar no assunto.
Se clicar na minha assinatura, poderá conhecer o treinamento.

Código:

Dim strSql As String, rs as DAO.Recordset
On Error Resume Next
strSql = "SELECT t0.nome FROM t0 GROUP BY t0.nome ORDER BY t0.nome;"

set rs = currentdb.openrecordset(strSql)

With Me.Texto0
   .RowSource = ""
   .RowSourceType = "Value List"
   do Until rs.eof
      .AddItem rs!nome
      rs.movenext
   loop
end With

rs.close
set rs = Nothing

Ótimo. Grato pelo retorno!
Uma observação:

Pode chamar os códigos que carregam as comboxs no evento ao abrir do formulário.
Assim já ficará carregada desde a abertura e o back-end já estará fechado.

Evaíro, boa noite e seja bem vindo.
Conforme regras do fórum, tópicos fechados não se pode mais tirar dúvidas.
Poderá abrir um novo tópico com sua dúvida e aí sim trataremos por lá.

Porém adianto que combobox desacopladas, bem como listbox, tem uma limitação ao
adicionar item, que é esse método apresentado. Daí teremos que partir para outro caminho.

Porém nesse tópico não daremos continuidade por já ter sanado a dúvida do autor.