Sub DANE()  
Application.ScreenUpdating = False   
Sheets("Arkusz1").Select
Cells.Select    
    Selection.ClearContents
   
    'zaznaczanie
    Range("A1").Select
    Dim POLECENIE As String

POLECENIE = "SELECT * FROM NAZWA SERWERA.BIBLIOTEKA.QUERY QUERY"
    With ActiveSheet.QueryTables.Add(Connection:=Array(Array("ODBC;DRIVER={iSeries Access ODBC Driver};UID=LOGIN;PWD=HASLO;CONNTYPE=2;PKG=QGPL/DEFAULT(IBM),2,0,1,0,512;LANGUAGEID=ENU;DFTPKGLIB=NAZWA_BIBLIOTEKI;DBQ=QGPL;SYSTEM"), Array("=NAZWA_SERWERA;")), Destination:=Range("$A$1:$K$603"))
        .CommandText = POLECENIE
        .Name = "Arkusz1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With
    Sheets("Arkusz1").Select
    Cells.Select
End Sub