Sub GetDataWithADOIn97()
  Dim cnt As New ADODB.Connection
  Dim rst As New ADODB.Recordset
  Dim ws As Worksheet
  Dim recArray As Variant
  Dim fldCount As Integer
  Dim iCols As Integer
  Dim recCount As Long
  
  Set ws = ActiveSheet
  cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=C:\My Documents\SalesDb.mdb;"
  rst.Open "Select * From SalesData", cnt
  fldCount = rst.Fields.Count
  For iCols =  0  To fldCount -  1 
    ws.Cells( 1 , iCols +  1 ).Value = rst.Fields(iCols).Name
  Next

  'Copy records to array
  recArray = rst.GetRows
  recCount = UBound(recArray,  2 )
  'Transpose array into worksheet
  ws.Range(ws.Cells( 2 ,  1 ), ws.Cells(recCount +  1 , fldCount)).Value _
    = Application.Transpose(recArray)
End Sub