小弟我想把小弟我的代码路径变成自动指定的，可是如何也写不好

我想把我的代码路径变成自动指定的，可是怎么也写不好
大家好，我又来麻烦大家了，我有一个小小的程序路径问题，
我也知道APP   PATH有这样一个功能就是我的文件不论在哪个目录下面，都会自己找到对应的路径，我自己是个新手，试过了多次，总是失败
所以不得已，又前来请教大家了
我原代码如下
Private   Sub   Form_Load()
Dim   s   As   String
address   =   sjxx.rsGrid.TextMatrix(Tm7,   4)
bianhao   =   sjxx.rsGrid.TextMatrix(Tm7,   0)
Label1.Caption   =   address
Label2.Caption   =   bianhao
s   =   "D:\公房程序\程序\img\ "   &   bianhao   &   ".jpg "
If   Dir(s)   <>   " "   Then
    Image1.Picture   =   LoadPicture(s)
Else
    Image1.Picture   =   LoadPicture( "D:\公房程序\程序\img\x.jpg ")
End   If
End   Sub

这代码的意思是指，我在IMG目录下找到相关BIANHAO。JPG的文件显示出来
如果没有就调   用X。JPG，可是目录却是D盘，固定的，我就是想把那个变掉
简单地说，就是我把这个代码复制到我的优盘里，带到任何地方都可以用，直接寻找程序目录下的IMG目录对应的图片了，
我知道我的意思大家都清楚，我表达不太好，APP。PATH我在网上也找了好多文章介绍，可是我可能没有接触过代码，所以不太理解，就把代码发在这里了，想请大家帮我写一个正确的，谢谢大家

另外说一句，我这个图片查找功能也是社区的兄弟指导我写的，很感谢大家。我还找到了一个VB视频教程，正在学习中，有不会的地方我就来请教大家

------解决方案--------------------
s = app.path & "\img\ " & bianhao & ".jpg "
------解决方案--------------------
完整代码：

Private Sub Form_Load()
Dim thePath As String
address = sjxx.rsGrid.TextMatrix(Tm7, 4)
bianhao = sjxx.rsGrid.TextMatrix(Tm7, 0)
Label1.Caption = address
Label2.Caption = bianhao

thePath=App.Path
If(Right$(thePath,1) <> "\ ") Then thePath=thePath & "\ "

thePath = thePath & bianhao & ".jpg "
If Dir(thePath) <> " " Then
Image1.Picture = LoadPicture(thePath)
Else
Image1.Picture = LoadPicture(thePath & "x.jpg ")
End If
End Sub