COMO FAÇO PARA CORREGAR UM RECORDSET NUMA VARIÁVEL ARRAYS E MOSTRÁ-LA ATRAVÉS DUM LABEL? QUEM PUDER DAR UMA DICA EU AGRADEÇO. OBRIGADO.

Se entendi sua dúvida isto deve funcionar:

 

Option Explicit
  Option Base 1
  Dim MyArray(50, 5) ' 50 registros com 5 campos
Private Sub Cmd_Carregar_Click()
  On Error GoTo Erro
  Dim x, y As Long
  x = Rs_Tabela.RecordCount
  y = 1
  ReDim MyArray(x, 5) ' redimenciona o array para o numero de registros
  Rs_Tabela.MoveFirst
  Do While Not Rs_Tabela.EOF
    MyArray(y, 1) = Rs_Tabela!Codigo
    MyArray(y, 2) = Rs_Tabela!Nome
    MyArray(y, 3) = Rs_Tabela!Cidade
    MyArray(y, 4) = Rs_Tabela!Estado
    MyArray(y, 5) = Rs_Tabela!Telefone
    y = y + 1
    Rs_Tabela.MoveNext
  Loop
  For y = 1 To x ' joga tudo para um ListBox
    List1.AddItem MyArray(y, 1) & " - " & _
                  MyArray(y, 2) & " - " & _
                  MyArray(y, 3) & " - " & _
                  MyArray(y, 4) & " - " & _
                  MyArray(y, 5)
  Next
  Exit Sub
Erro:
  MsgBox "Ocorreu o erro nº " & Err.Number & vbCr & vbCr & Err.Description, 64, "Atenção"
  Err.Clear
End Sub

  Dim Matriz() As variant

  Dim rst as recordset

  Set rst = vgDb.OpenRecordset("SELECT * FROM Tabela")
  If rst.RecordCount > 0 Then

    Nlinhas = rst.RecordCount

    Lcolunas = rst.Fields.Count
    ReDim Matriz(1 To NLinhas, 1 To Ncolunas)

    Registro = 1
    do while not rst.eof

       Matriz(Registro, 1) = rst![Campo01]
       Matriz(Registro, 2) = rst![Campo02]
       Matriz(Registro, 3) = rst![Campo03]
       Matriz(Registro, 4) = rst![Campo04]

       Registro = Registro + 1

       rst.movenext

    loop

  end if
 

MARTINI, USEI O SEU CÓDIGO E DEU CERTO, OBRIGADO. COMO EU FAÇO PARA MOSTRAR O CONTEUDO DO ARRAYS ATRAVÉS DE UM LABEL?