Tabela em array

[Arnaldo 0]

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

[scorpio 7]

Por que quer colocar em um array? O correto é fazer a pesquisa no banco. É mais rápido e mais correto. Mas porque quer isso ?