hi,
du musst deinen string in teile zerlegen, also folgendes
Numblocks = FileLength / BlockSize
LeftOver = FileLength Mod BlockSize
ReDim ByteData(LeftOver)
Get SourceFile, , ByteData()
Rs(1).AppendChunk ByteData()
ReDim ByteData(BlockSize)
For i = 1 To Numblocks
Get SourceFile, , ByteData()
Rs(1).AppendChunk ByteData()
Next i
Rs.Update 'Commit the new data.
durch etwas ersetzen, was dir deinen string in blöcke zerteilt und in der forschleife die einzelnen blöcke nacheinander mittels appendChunk an das field-object übergeben.
z.b.
dim varText as Variant
for i = 0 to len(deinString) step BLOCKSIZE
varText = mid(deinString, i, BLOCKSIZE)
rs.fields("deinFeldname").appendChunk varText
next
das ist ungetestet! ich glaube das appendChunk bekommt einen Variant übergeben...
hth...