Boa tarde.

Esse é o codigo que uso para jogar os dados do recordset na listbox.

________________________________________________________________________________________________
Global banco As Database
Global consulta As Recordset

________________________________________________________________________________________________
Sub Conecta()

'Rotina para fazer a conexão com o Banco de Dados em Access
Set banco = OpenDatabase(CadEmail.Cells(1, 1).Value)

End Sub

________________________________________________________________________________________________
Sub Desconecta()

'Faz a liberação das variáveis objeto do Banco de dados
Set banco = Nothing
Set consulta = Nothing

End Sub

________________________________________________________________________________________________
Sub listaDestinatario()
Conecta
'Populando o listbox
ComandoSQL = "select * from tbEmailDestinatario"
Set consulta = banco.OpenRecordset(ComandoSQL)
linhalistbox = 0
Cadastro.ListBox_Cadastro.Clear
While Not consulta.EOF
With Cadastro.ListBox_Cadastro
.AddItem
.List(linhalistbox, 0) = consulta(0)
End With
linhalistbox = linhalistbox + 1
consulta.MoveNext
Wend
Desconecta
End Sub
________________________________________________________________________________________________

Gostaria de saber como faço para tirar o loop da sub listaDestinatario e colocar o getRows para tentar otimizar o codigo?