I've got this example code from some website. When I run it, it kept error on 
this line: s = s & Chr( AscB( MidB(a, i, 1) ) )

I don't know that much about that kind of function. When I re-type it on MS 
Visual InterDev, it seems ok but still, error same line anyway. Here is the 
entire code. Please help!!

dim cnn, rs
set cnn = CreateObject("ADODB.Connection")
'open the connection with our database
cnn.Open ConnString

'Obtain a result set with blob space
set rs=cnn.Execute("select * from examdata where ExamDataID=2029")
'Return the first 200 bytes from blob field.
a = rs("DATABLOB").GetChunk(200)

'Note: Notice that it returns in array shape, so you will have 
'to use Lenb, Chrb, MidB, LeftB etc to be able to handle with
'the result

'Here we used a loop to convert byte after byte array to string
for i = lbound(a) to ubound(a) 
s = s & Chr( AscB( MidB(a, i, 1) ) )
next