合成路径。如果你的图片放在 attachments 文件夹,就这样写
Dim ifo As New FileInfo(ProjectPath & "attachments/" & Tables("表a").Current("第一列"))