Fehler in Abfrage?

Sub Query_Tabelle()
Dim RecSet As ADODB.Recordset
Dim ConString As String
ConString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.Path & "\Verkauf.xls;" & _
"Extended Properties=Excel 8.0;"
Dim SQL As String
SQL = "SELECT * FROM [Verkauf$]"
Set RecSet = New ADODB.RecSet
On Error GoTo ERRH
Call RecSet.Open(SQL, ConString, _
CursorTypeEnum.adOpenForwardOnly, LockTypeEnum.adLockReadOnly, _
CommandTypeEnum.adCmdText)
Call Tabelle1.Range("A1").CopyFromRecordset(RecSet)
ERRH:
If Err.Number <> 0 Then Debug.Print Err.Description
If RecSet.State = ObjectStateEnum.adStateOpen Then
RecSet.Close
End If
Set RecSet = Nothing
End Sub