在請教程式的問題？(編號：7770)

我在程式裡面寫要載圖形檔，如果在VB裡執行可以執行，可是編譯成EXE檔後就告訴我找不到檔案，請問知道的前輩，為什麼呢？程式檔如下：
If Dir("logo.jpg") ＜＞ "" Then
　　　Image1.Picture = LoadPicture("logo.jpg")
　 End If
　 If Dir("company") ＜＞ "" Then
　　　Open "company" For Input As #1
　　　Do While Not EOF(1)
　　　　Line Input #1, TmpStr
　　　　Label1 = TmpStr
　　　Loop
　　　Close #1
　　End If