Private Sub CommandButton1_Click()
 
Dim cnData As ADODB.Connection
Set cnData = New ADODB.Connection
Dim strConn As String
 
strConn = _
  "PROVIDER=SQLOLEDB;Driver=SQLServer;Server=xxx;UID=xxx;PWD=xxx;Database=xxx;"
cnData.ConnectionTimeout = 0
cnData.Open strConn
Dim rsData As ADODB.Recordset
Set rsData = New ADODB.Recordset
cnData.CommandTimeout = 0
With rsData
.ActiveConnection = cnData
.Open _
"SQL Query"
 
Tabelle3.Range("A1").CopyFromRecordset rsData
.Close
End With
cnData.Close
 
  Set rsData = Nothing
  Set cnData = Nothing
 
End Sub