Buenas
Antetodo agradacer de antemano a los que aportan alguna ayuda.

Estoy haciendo una pequeña base de datos en access y complementandola con algunas rutinillas en visual basic ; pero hay una rutina que no me funciona, me da error como si no estuviese el archivo en esa carpeta pero si que esta, entonces , os copio el texto por si le encontrais cual es el fallo y la solucion. Uso VB 6.3.

'Comprobamos la existencia de documentos OLE incrustados en el campo ArchivoDigital------------------------------
If IsNull(Me.ArchivoDigital) Then
With Application.FileSearch
.NewSearch
.LookIn = "C:\asesor\ahmgestion\temp"
.FileName = "DOC295AHMG.doc"
'.FileName = "DOC" & Me.CodigoDocumento.Value & "AHMG.*"
.MatchTextExac
If Not .Execute() = 0 Then
If MsgBox("¿Deseas incrustar " & .FoundFiles(1) & " en el documento?", vbYesNo + vbApplicationModal) = 6 Then
Me.ArchivoDigital.SourceDoc = .FoundFiles(1)
Me.ArchivoDigital.Action = acOLECreateEmbed
Me.Comentario.SetFocus
End If
Else
MsgBox "execute no
funciona"
End If

End With
End If


Un saludo