Sub Macro1()
'
' Macro1 Macro
' Macro recorded 02.02.2010 by me
'

'
    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DRIVER=SQL Server;SERVER=SERVERNAME;UID=;APP=Microsoft Office 2003;WSID=MYHOSTNAME;DATABASE=DBNAME;Trusted_Connection" _
        ), Array("=Yes")), Destination:=Range("B3"))
        .CommandText = Array( _
        "SELECT ""TableName"".Field1, ""TableName"".Field2, ""TableName"".Field3" & Chr( 13 ) & "" & Chr( 10 ) & "FROM DBNAME.dbo.""TableName"" ""TableName""" _
        )
        .Name = "Query from Tezd"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod =  0 
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With
End Sub