Извиняюсь - перепутал
]]>tmp = rs(1).GetChunk(rs(1).ActualSize)
Dim i,s
For i=1 to Ubound(tmp)
s = s & AscB(midB(tmp,i,1))
Next
msgbox sХм... А вообще подумать надо как удобно дёрнуть. А то так кривовато. Сейчас как дома окажусь - поэкспериментирую на живом образце.
P.S Код обновил. Тот у меня давал сбои из-за неправильной работы с массивом
]]>Предполагаю, что Вам поможет такой код.
Не помог 
- выдает ошибку несоответствие типа в строке с msgbox. Само поле разбивается в массив и состоит и 7 элементов, как и должно быть.
Виноват. Нужен был TypeName() от rs(1). Но сейчас уже не важно. 8209 = vbArray or vbByte. ) Т.е всё верно это byte массив.
TypeName(rs(1)) выдает надпись "Field"
]]>Предполагаю, что Вам поможет такой код.
Dim Data, s
Data = rs(1)
For i=Lbound(Data) to Ubound(Data)
s = s & Data(i)
Next
MsgBox s
msgbox VarType(rs(1))Dim connA
Dim arrTest
Set connA = CreateObject("ADODB.Connection")
connA.Open ("Data Source = Апакс25")
Dim rs
Set rs = CreateObject("ADODB.Recordset")
rs.Open "select TZRECNUM, TIMEINTR.DAYWEEK, INTERNUM from TIMEINTR", connA
rs.MoveFirst
do while not rs.eof
msgbox rs(1)
rs.MoveNext
loopЗаранее благодарю!
]]>