我如何将SQL的表中的所有OLE二进制数据读出放入连续的内存中

[zhangyanlong]

dim sBtyT(1024) as byte
If adoRst.RecordCount > 0 Then

i = 0
Do While Not adoRst.EOF

sBtyT = adoRst.Fields("Template").GetChunk(1024) //为什么这句报错
i = i + 1
adoRst.MoveNext
Loop
End If
Call inputOCX(sBty(0), adoRst.RecordCount * 1024)