SoloCodigo

lo que podrias hacer es capturar el error que se produce al no encontar la imagen.
seria algo asi:

dentro de tu funcion, modulo o lo que sea que uses para llamar la imagen


On Local Error GoTo NoHayFoto ' CON ESTO INICIAS LA CAPTURA DEL ERROR

'
'
'AQUI LA LINEA QUE CARGARA TU IMAGEN, SI NO ES ENCONTRADA SALTA A LA LINEA DE CODIGO DE CAPTURA DEL ERROR

'
'
'
Exit Function ' SE DEBE SALIR DE LA FUNCION PARA QUE NO SE EJECUTE LA LINEA DE CODIGO DE CAPTURA
NoHayFoto:
' SI SE PRODUCE EL ERROR AQUI COLOCAS EL CODIGO PARA QUE TE MUESTRE LA OTRA IMAGEN

pd: si no entiendes, en la ayuda de visual sale un ejemplo mas completo presiona F1 sobre palabra ERROR.

mira al parecer lo que podria suceder es que el reporte no encuentra la base de datos segun veo..
si es asi lo que debes hacer es:

en el reporte, en menu base de datos dice "establecer ubicacion" debes poner la misma del informe y coloca el formulario junto a la base de datos, quizas eso podria funcionar.

saludos.

segun te entiendo estas tratando que cuando se inicie tu programa se abra inmediatamente el CommonDialog ???
si es asi basta con que coloques un timer al iniciar tu programa q haga que se abra.

seria algo asi:



con eso haces que se abra de inmediato recuerda asignar el interval al timer1 con interval = 500 te bastara.

saludos.

aqui puedes  guardar lo que escribas en un texbox y leer ese archivo tambien:

primero necesitas esto en un modulo

Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Function LeeTXT(Archivo As String, Seccion As String, Clave As String)
Dim iRetLen As Integer
Dim sRet As String

sRet = Space(255)
iRetLen = GetPrivateProfileString(Seccion, Clave, "", sRet, Len(sRet), Archivo)
sRet = Left(sRet, iRetLen)
LeeINI = sRet
End Function

Sub GrabaTXT(Archivo As String, Seccion As String, Clave As String, Text As String)
WritePrivateProfileString Seccion, Clave, Text, Archivo
End Sub

ESTO EN EL FORMULARIO:
para guardar lo que este en el texbox lo haces asi :

GrabaTXT App.Path & "\archivo.txt", "Dato", "Clave", txtInformacion.text

donde archivo.txt es donde quedara la informacion, dato sera la cabeza de ese archivo y clave sera la linea de este y txtinformacion.text sera donde esta la informacion.

QUEDARIA ASI EN EL BLOCK DE NOTAS

[Dato]
Clave= "lo que estaba escrito en el textbox"


y para leer ese archivo lo haces asi:

txtInformacion.text = LeeTXT(App.Path & "\archivo.txt", "Dato", "Clave")

si quisieras guardar mas informacion de otros textbox debes cambiar la palabra clave por cualquiera que se te ocurra no necesariamente deben llamarse asi eso queda a tu gusto. si tienes dudas manda un mail a xtolox@hotmail.com y te ayudare. espero que te haya quedado claro. saludos

PD: EL ARCHIVO SE CREA DONDE ESTA PU PROYECTO.