Dim encoding1 As Encoding = Encoding.GetEncoding("iso-8859-2")
Dim encoding2 As Encoding = Encoding.Unicode
Dim bytes As Byte()
cmdLive.Connection = connLive
connLive.Open()
cmdLive.CommandType = CommandType.Text
cmdLive.CommandText = "select COMPANY_NAME from asrgaergerg"
rs = cmdLive.ExecuteReader()
cbTrgovci.Items.Clear()
While rs.Read()
bytes = encoding1.GetBytes(rs!COMPANY_NAME)
bytes = Encoding.Convert(encoding1, encoding2, bytes)
cbTrgovci.Items.Add(Encoding.Unicode.GetString(bytes))
End While
manda