No VB funciona, No Windows NÃO

Ola comunidade.

Estou com um problema que nunca tive antes, por isso nao sei como resolver.

No meu form tem um botão que abre a foto do registro quando clicado. Se eu rodar o programa por dentro do vb, ou seja, apertando o start lá em cima, ele funciona perfeitamente.

Mas se eu compilar, na hora de usar ele windows, o botão quando clicado não acontece nada. Ou seja, ele perdeu a ação que tinha.

O codigo está assim:

Private Sub cmdExibir_Click() If Adodc1.Recordset("Foto") <> "/Fotos/@.tif" Then Dim i& i& = ShellExecute(0, "open", Adodc1.Recordset("Foto"), "", "", SW_SHOW) Else MsgBox ("Sem Foto") End IfEnd Sube o modulo BotaoExibir está assim:

Public Const SW_SHOW As Long = 5Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hwnd As Long, ByVal _ lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory _ As String, ByVal nShowCmd As Long) As LongO que pode ser?? Alguem já passou por coisa parecida?

[]´s