Tabela em array

Boa noite

Na minha tela de venda a cada produto que passa faço um select no banco de dados.

 

Set Rs1=cnn.Execute("Select Produto,Venda,Unidade,Promo,Promocao From tblProduto Where Codigo='" & me.codigo & "'")

if not Rs1.EOF then me.descricao=rs1!Produto if Rs1!Promo=1 then me.valor= Format(rs1!Promocao,"#,##0.00") else me.valor= Format(rs1!Venda,"#,##0.00") end if Rs1.close Set Rs1=nothing else Rs1.close Set Rs1=nothing msgbox"Produto não cadastrado",vInfomation,"Aviso do Sistema" exit sub end if Gostaria de saber como fazer com Array

Tipo ao abrir a tela de venda selecionar a tabela de produtos e guardar em um array

ao passar o produto pegar do array ou informar que não está cadastrado.

Obrigado