[Tabellenname$]
     [Tabellenname$A1:C5]
     [Tabellenname$A2:A2]

Private Function GetDataFromWkb_ADO(ByVal strDBName As String, _
      ByVal strSQL As String, ByVal fColHDR As Boolean, _
      ByRef avarDataXL() As Variant) As Boolean

  Dim cnnADO        As ADODB.Connection
  Dim rstADO        As ADODB.Recordset
  Dim strExtProps   As String
  Dim avarDataRS    As Variant

  Dim nFieldsCnt    As Long
  Dim nRecordsCnt   As Long

  Dim nFld          As Long
  Dim nRec          As Long

  Dim blnData       As Boolean

  strExtProps = "Excel 8.0;"
  If Not fColHDR Then
    strExtProps = strExtProps & "HDR=No;"
  End If

  On Error GoTo err_GetValues

  Set cnnADO = New ADODB.Connection
  With cnnADO
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Properties("Extended Properties").Value = strExtProps
    .Open strDBName
  End With

  Set rstADO = New ADODB.Recordset
  With rstADO
    .ActiveConnection = cnnADO
    .CursorLocation = adUseClient
    .Source = strSQL
    .Open
  End With

  If Not (rstADO.EOF Or rstADO.BOF) Then
    avarDataRS = rstADO.GetRows()
    If IsArray(avarDataRS) Then
      nFieldsCnt = UBound(avarDataRS, 1)
      nRecordsCnt = UBound(avarDataRS, 2)

      ReDim avarDataXL(nRecordsCnt, nFieldsCnt)

      For nFld = 0 To nFieldsCnt
        For nRec = 0 To nRecordsCnt
          If Not IsNull(avarDataRS(nFld, nRec)) Then
            If IsDate(avarDataRS(nFld, nRec)) Then
              avarDataXL(nRec, nFld) = _
                  Format$(avarDataRS(nFld, nRec), "yyyy-mm-dd")
            Else
              avarDataXL(nRec, nFld) = avarDataRS(nFld, nRec)
            End If
            blnData = True
          End If
        Next
      Next
      Erase avarDataRS

      If blnData Then
        GetDataFromWkb_ADO = True
      Else
        MsgBox "Der Quellbereich enthält keine Daten!", _
             vbInformation, "VB-fun-Demo"
      End If
    End If
  Else
    MsgBox "Keine entsprechenden Datensätze gefunden!", _
         vbInformation, "VB-fun-Demo"
  End If

exit_Func:
  On Error Resume Next

  rstADO.Close
  Set rstADO = Nothing
  cnnADO.Close
  Set cnnADO = Nothing

  On Error GoTo 0
  Exit Function

err_GetValues:
  MsgBox "Fehler " & Err.Number & vbCrLf & Err.Description, _
        vbOKOnly + vbCritical, "VB-fun-Demo"
  Resume exit_Func
End Function

Public Sub Start_GetDataFromWkb_ADO()
  Dim strDBName     As String
  Dim strSource     As String
  Dim strSQL        As String
  Dim avarDataXL()  As Variant

  Dim optXLCalcMode As Long

  Dim wksDest       As Worksheet
  Dim nColDest      As Integer
  Dim nRowDest      As Long

  strDBName = ThisWorkbook.Path & "\TestDateien\Mappe1.xls"
  strSource = "[Tabelle1$]"
  strSQL = "SELECT * FROM " & strSource & ";"

  If Len(Dir$(strDBName)) = 0 Then
    MsgBox "Die Datei " & vbCrLf & strDBName & vbCrLf & _
          "existiert nicht!", vbInformation, "VB-fun-Demo"
    Exit Sub
  End If

  If GetDataFromWkb_ADO(strDBName, strSQL, True, avarDataXL()) Then
    With Application
      optXLCalcMode = .Calculation
      .Calculation = xlManual
      .EnableEvents = False
    End With

    nColDest = 1
    Set wksDest = ActiveWorkbook.Worksheets(1)

    On Error Resume Next
    With wksDest
      If Application.WorksheetFunction.CountA(.Cells) > 0 Then
        nRowDest = .Cells.Find(What:="*", After:=.Cells(1, 1), _
                    SearchOrder:=xlByRows, _
                    SearchDirection:=xlPrevious).Row + 1
      Else
          nRowDest = 2
      End If

      Err.Clear
      .Cells(nRowDest, nColDest).Resize( _
            UBound(avarDataXL, 1) + 1, _
            UBound(avarDataXL, 2) + 1).Value = avarDataXL

      If Err.Number = 0 Then
        .UsedRange.Columns.AutoFit

        MsgBox "Die Daten aus dem Quellbereich '" & strSource & _
            "' wurden eingelesen!", vbInformation, "VB-fun-Demo"

      Else
        MsgBox "Fehler " & Err.Number & vbCrLf & _
              Err.Description, vbCritical, "VB-fun-Demo"
      End If
    End With

    Erase avarDataXL
    Set wksDest = Nothing

    With Application
      .EnableEvents = True
      .Calculation = optXLCalcMode
    End With
  End If
  On Error GoTo 0
End Sub