Option Explicit

Public Sub AdoCheckFelder()
Dim oAdoConnection As Object, oAdoRecordset As Object
Dim sAdoConnectString As String, sPfad As String
Dim sQuery As String
Dim oZielStartRange As Range
On Error GoTo Fehler
sPfad = ThisWorkbook.FullName
Set oZielStartRange = ThisWorkbook.Worksheets("Ziel").Range("b2")
Set oAdoConnection = CreateObject("ADODB.CONNECTION")
sAdoConnectString = _
 "DRIVER={Microsoft Excel Driver (*.xls)};ReadOnly=1;DBQ=" & sPfad
oAdoConnection.Open sAdoConnectString
Set oAdoRecordset = CreateObject("ADODB.RECORDSET")
sQuery = "Select * from [Werte$]"
With oAdoRecordset
	.Source = sQuery
	.ActiveConnection = oAdoConnection
	.Open
	Call TestfelderAusgabe(oAdoRecordset, oZielStartRange)
End With
Aufraeumen:
On Error Resume Next ' Sehr Faul
oAdoRecordset.Close
oAdoConnection.Close
Set oAdoRecordset = Nothing
Set oAdoConnection = Nothing
Exit Sub
Fehler:
MsgBox "Fehler: " & Err.Description
Resume Aufraeumen
End Sub

Private Sub TestfelderAusgabe(DasRecordSet As Object, StartAusgabe As Range)
Dim i As Long
StartAusgabe.CurrentRegion.Clear
With StartAusgabe
	For i = 0 To DasRecordSet.fields.Count - 1
		.Offset(i, 0) = DasRecordSet.fields(i).Name
	Next i
End With
End Sub