Trabalhando com array no VB!

Olá parceiros,Não consigo fazer esse codigo funcionar, olha só:------------------------------Private Sub bt_teste_Click()Dim Cliente As Recordset, SelCliente As String, Lista As VariantSelCliente = "SELECT DISTINCT NomeCliente FROM CD_Clientes;"Set Cliente = CurrentDb.OpenRecordset(SelCliente)Lista = Array(Cliente!NomeCliente)MsgBox Lista(0)End Sub------------------------------Claro que com este código, ele informa o primeiro registro, mas e os outros, como faço? Então:O objetivo: Pegar todos os nomes de clientes do recordset e armazenar numa array ou algo que funcione da mesma forma, de modo que eu possa me referir a todos os registros. O problema: Não sei trabalhar com arrays! Alguém pode me ajudar?Vlw a força