Dim oCon As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
          "Source=" & source & "; Persist Security Info=False")
        Dim SQL_tdi As String = "SELECT * FROM DSTabelle2"
...
        xlSheet.QueryTables.Add(oCon, xlSheet.Range("A1"), SQL_tdi)