Подскажите, что за переполнение происходит в базе
"Инструкция по адресу "0x771115e0" обратилась к памяти по адресу "0x00adcc88" Память не может быть read"
"OK"-завершение приложения
Постоянно приходится перезаходить в базу

База на ORACLE

Sub CheckDocTypeName()
Query.Sql.Text = "select c.rn,fd.TEMPLATE FROM FILELINKS_DATA FD,FILELINKS F,FILELINKSUNITS FL,CERTIFICATION C where F.RN=FD.PRN and F.RN=FL.FILELINKS_PRN and FL.TABLE_PRN=C.RN and c.rn=" & Document
Query.Open
Set WordApp = CreateObject("Word.Application")
End If
WordApp.Visible =1
Set TheWordDoc = WordApp.Documents.Add
Set R = TheWordDoc.Range(0, TheWordDoc.Characters.Count)
Picture1 = Query.FieldByName("TEMPLATE").Value
SavePicture Picture1.Picture, "c:\pic.bmp"
R = LoadPicture("c:\pic.bmp" )
Set R = Nothing
WordApp.Quit True
End If
End Sub

И подскажите пожалуйста, почему выводит ошибку
Ошибка выполнения Microsoft VBScript
Требуется объект: 'Picture1'
Строка:25, Столбец:1.
Мне посоветовали

Dim s() As Byte, fil As String

ReDim s(adoRs.Fields("text").ActualSize)
s = adoRs.Fields("text").GetChunk(adoRs.Fields("text").ActualSize)

ReDim Preserve s(0 To UBound(s) - 1)

fil = tv.SelectedItem.Text
Open fil For Binary As #1
Put #1, , s
Close #1
adoRs.Close
И только потом делаете LoadPicture и присваиваете.

Но он вообще ругается на каждую строчку и требует
[14/13]: Предполагается наличие окончания инструкции