Dim newbook  As Excel.Workbook
Set newbook = Application.Workbooks.Add
newbook.Worksheets( 1 ).Activate

Set qt = QueryTables.Add(rs, Range("A7"))

Set qt = QueryTables.Add(rs, newbook.Worksheets( 1 ).Range("A7"))

Dim constring As String ' строка соединения через ODBC
constring = "DSN=luft;UID=***;PWD=***;APP=Excel2003_"

Dim sqlstring As String ' текст запроса
sqlstring = "SELECT MESSDATETIME, READERNAME,READERTYPE,CARDNUMBER, NAME1, NAME2,NAME3 " & _
                 "FROM TIMELUFTHANSA WHERE MESSDATETIME>{ts '2009-04-21 00:00:00'} ORDER BY CARDNUMBER, MESSDATETIME"

Worksheets("Лист1").Activate
Range(Cells( 7 ,  1 ), Cells(UsedRange.Rows.Count,  10 )).Clear
Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
conn.ConnectionString = constring
conn.Open
rs.ActiveConnection = conn
rs.Source = sqlstring
rs.CursorLocation = adUseClient
rs.Open

Dim newbook  As Excel.Workbook
Set newbook = Application.Workbooks.Add
newbook.Worksheets( 1 ).Activate
Dim qt As QueryTable
'qt.Destination = newbook.Worksheets(1)
Set qt = QueryTables.Add(rs, Range("A7"))
qt.Refresh

rs.Close
conn.Close