[Resolvido]Caixa de Listagem Múltipla com valores divididos em 4 colunas

Bom dia,

Venho mais uma vez solicitar a ajuda de vocês.
Tenho uma caixa de listagem com 22 valores de uma única tabela e eu gostaria de dividí-los em 4 colunas.
Procurei bastante e encontrei esse código: https://www.maximoaccess.com/t21520-personalizar-caixa-de-listagem Mensagem 2

Código:

Dim rs As Recordset, N As Integer, Colunas As String

Set rs = CurrentDb.OpenTable("SELECT nomeDoCampo FROM nomeDaTabela WHERE seuFiltroAqui")

rs.MoveFirst

Do While Not rs.EOF

  if N < 3 Then
      N = N + 1
  Else
      N = 1
  End If

  If N = 1 Then
      Colunas = rs("NomeDoCampo")
  Else
      Colunas = Colunas & ";" & rs("NomeDoCampo")
  End If

  Me.nomeDaListBox.AddItem Colunas

rs.MoveNext

rs.Close
Set rs = Nothing

Quando eu executo esse código, ele me marca o campo CurrentDb.OpenTable e dá a mensagem: Função ou interface marcada como restrita, ou a função está usando um tipo de automação não suportado pelo visual basic.

Poderiam me dar uma luz?

Olá!

Substitua por :

set rs = currentdb.OpenRecordset(....)

Aguardamos

Olá, Avelino.

Me apresenta o erro de compilação: Do sem Loop.

Olá, Avelino.

Está dando outro erro.
Posso te mandar meu BD para que você possa dar uma olhada quando tiver tempo?
No Formulário fCadastro_Atendimento terá a ListBox na qual necessito que fique em 4 colunas.

Muito obrigado pela ajuda desde já.

Olá Avelino.

Desculpa lhe incomodar novamente. Quando eu seleciono algum item, ele seleciona toda a linha que automaticamente soma 3 demandas. Ela deveria vir de marcação mútipla. E caso dê pra selecionar individualmente os itens, como seria feito a armazenagem dos valores já que ele não está associado a nenhum campo da tabela?

Up

Up

Desisti de tentar implementar no meu sistema.
Obrigado aos que se disponibilizaram em ajudar.