Sub CreateLabels(lRows)
Dim i As Integer, x As Integer
Dim dTop As Double
dTop = 0
Dim lab As New ClassLabel_1
Dim arrdata() As Variant
arrdata() = Sh1.Range(Sh1.Cells(2, 10), Sh1.Cells(lRows, 15))

For i = 1 To UBound(arrdata, 1) Step 1
With lab
            .stLabArticle = arrdata(i, 3)
            .stLabBarcode = arrdata(i, 6)
            .stLabName = arrdata(i, 1)
            lab.createLabel (dTop)
        End With
dTop = dTop + 115
Next i
Erase arrdata()

Sub ConvertToCyrillic(strArr() As Variant, Sh As Worksheet, iRow As Integer, iCol As Integer)

'variables declaration
Dim TextStream As New ADODB.Stream
Dim iR As Integer, iC As Integer


' to specify the properties of the object
With TextStream
        .Type = 2 'text data
        .Mode = 3 'read/write
End With

' to start to convert of the Charset
For iC = 1 To UBound(strArr, 2) Step 1
    For iR = 1 To UBound(strArr, 1) Step 1
        With TextStream
        .Charset = "ISO-8859-1"
        .Open
        .WriteText = strArr(iR, iC)
        .Position = 0
        .Charset = "Windows-1251"
         strArr(iR, iC) = .ReadText
        .Close
        End With
    Next iR
Next iC
' to delete the object from memory
Set TextStream = Nothing
' to assign the array to range
Sh.Range(Cells(iRow, iCol), Cells(UBound(strArr, 1), UBound(strArr, 2))) = strArr

Erase strArr
End Sub

 SUB connection_db 
Set CS = CreateObject("ADODB.Connection") 
Set RS = CreateObject("ADODB.Recordset") 
Set CMD = CreateObject("ADODB.Command")  

'ISeries connection String 
ConnectString = "Driver={ISeries Access ODBC Driver};System = 00.00.00.000;Uid=" & strLogin & ";Pwd=" & strPassword & ";Library=XXXX;CCSID=1251" 
CS.Open (ConnectString)  

'select from db 
sqlstring = " SELECT * From ABC "
  
CMD.ActiveConnection = CS 
CMD.CommandText = sqlstring 
Set RS = CMD.Execute  

'RS.Open sqlstring,CS  

Dim A1() As Variant 
A1 = RS.GetRows()   

Call ConvertToCyrillic(A1, TST, 2, 1)  

RS.Close 
CS.Close 
End Sub