Caros amigos, preciso de um help. Podem me ajudar?

 

Tenho necessidade de gravar em um array, o resultado de um RecordSet (9 colunas de um select). Como criar o Array (bidimensional ???).

 

Aguardo ansiosamente.

 

Abraços.

Complementando acima, cada linha da matriz, é quem irá conter a linha com os 9 campos do recorset. Ok ?

exemplo com duas colunas ...

 

  Dim rst As Recordset
  Dim arrayTabelas() As Variant
  Dim Linha As Integer
  Dim TotalLinhas As Integer
  Linha = 1
  Set rst = vgdb.OpenRecordset("SELECT Count(Produtos.Codigo) AS ContarDeCodigo FROM Produtos;")
  TotalLinhas = rst![ContarDeCodigo]
  Set rst = vgdb.OpenRecordset("SELECT Produtos.Codigo, Produtos.Nome FROM Produtos;")
  ReDim arrayTabelas(1 To TotalLinhas, 1 To 2)
  If rst.RecordCount > 0 Then
    Do While Not rst.EOF
   
      arrayTabelas(Linha, 1) = rst![Codigo]
      arrayTabelas(Linha, 2) = rst![Nome]
      rst.MoveNext
      Linha = Linha + 1
    Loop
  End If