Vba sybase via odbc

patogus naudoti microsoft excel (daznai naudotas/naudojamas win2000 server os su microsoft excel 2000)

Sub vba_sybase_via_odbc()
Dim i As Integer
Dim query As String

ActiveSheet.Range("B2:B1000").Clear
i = 2
  While Len(Cells(i, "A")) > 0
        query = "SELECT itm.itmnam FROM itm WHERE itm.itmcod='" & Cells(i, "A") & "' " & _
        "AND itm.logcod='VOLVO' AND itm.compny='M1'"
        Cells(i, "B").Activate
        exQuery (query)
        i = i + 1
  Wend
End Sub

Function exQuery(query As String)

With ActiveSheet.QueryTables.Add( _
        Connection:="ODBC;DSN=KENT01_Rainbow;UID=rainbow;Password=slaptazodis;NLN=Winsock;NA=SONSRV01,5000;DB=RainbowLI", _
        Destination:=ActiveCell, _
        Sql:=query)
        .CommandText = query
        .FieldNames = False
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .PreserveColumnInfo = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .RefreshOnFileOpen = False
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .Refresh BackgroundQuery:=False
End With

End Function