i have successfully stored the LONG-array in the blob-field:

Code:
Dim LArray(3) As Long
LArray(0) = 1
LArray(1) = 200
LArray(2) = 3000
LArray(3) = 40000
cmdDB.SetBlobPtr 1, VarPtr(LArray(0)), (UBound(LArray) + 1) * LenB(LArray(0))
and i have successfully read it back as a BYTE-array:

Code:
Dim bArr() As Byte
bArr = RS("arraydata")
and the byte-array contains the correct values from the LONG-array!

now i try to copy the byte-array-mem-block into the LONG-Array:

Code:
Dim LArray(3) As Long
CopyMemory VarPtr(LArray(0)), ByVal VarPtr(bArr(0)), (UBound(bArr) + 1) * LenB(bArr(0))
but the values of the LArray-items are all ZERO...any ideas?