problema con bookmark en visual

[anadelaisla]

Hola, quiero crear un word don varios bookmarks y una fotografía, todo me lo hacía bien hasta que le metí la fotografía que ya me da error, me dice que el elemento del conjunto solicitado no existe.
Os pongo el código de la funcion que me hace esto:

Dim sql As String
Dim rs As ADODB.Recordset

Dim objWdApp As New Word.Application
Dim objWdDoc As Word.Document
Dim objwdRange As Word.Range

Set objWdDoc = objWdApp.Documents.Open(Filename:=App.Path & "\cartel.doc")


objWdDoc.bookmarks("operacion").Range.Text = Me.Coperacion.Text
objWdDoc.bookmarks("ref").Range.Text = Me.Tref.Text
objWdDoc.bookmarks("Zona").Range.Text = Me.Czona.Text

Set rs = New ADODB.Recordset
sql = "select * from fotos where ref='" & Me.Tref.Text & "' order by nfoto asc"
rs.Open sql, BD, 2, 3
If Not rs.EOF Then
If Dir(App.Path & "\dir.dll", vbArchive) <> "" Then
Dim Fichero, ruta As String
Fichero = App.Path & "\dir.dll"
Open Fichero For Input As #1
Input #1, ruta
Close #1
If Dir(ruta & "\thumbnail4\" & rs("img"), vbArchive) <> "" Then
objWdDoc.bookmarks("foto").Range.InlineShapes.AddP icture ruta & "\thumbnail4\" & rs("img")
objWdDoc.bookmarks("foto").Delete
End If
End If


El error me lo da exactamente en la linea de :

objWdDoc.bookmarks("foto").Range.InlineShapes.AddP icture ruta & "\thumbnail4\" & rs("img")


Gracias.
Un saludo.