RST.MoveMin
Do While Not RST.EOF
List1.AddItem RST("Cod_fun") & space(20-(len(RST("Cod_fun"))) _
& RST("Endereco_fun")
RST.MoveNext
Loop
onde o 20 determina a quantidade de espaços dando a possibilidade de você ajeitar do jeito que quiser
ps: onde está MoveMin é M.o.v.e.F.i.r.st, devido a um problema no site toda vez que tento incluir este nome ele é alterado automáticamente então não se esqueça deste detalhe, e tem mais só coloquei a frase com pontos(.) porque ela se altera, então escreva a mesma sem pontos
Valeu até
e bom Natal
