高分求助 达人帮忙 ListView1_DblClick

Question

With Adodc1.Recordset
 If .RecordCount > 0 Then
  .MoveFirst
  Do While Not .EOF
   If ListView1.SelectedItem.Text = .Fields(2).Value Then
    
   Shell .Fields(4).Value, vbNormalFocus问题1:(例如若.Fields(4).Value=C:\Program Files\Microsoft Visual Studio\VB98\VB6.EXE则运行起来没有问题)
(例如若.Fields(4).Value=E:\单机游戏\富甲天下4\M3K4.EXE则富甲天下4这游戏执行文件提示游戏里缺少文件)   End If
   .MoveNext
  Loop
 End If
End With
End Sub问题1:(我估计还是路径的环境变量问题求帮忙。
问题2:如反恐精英我想加游戏参数 
Fields(5).Value(这里是参数)
Shell .Fields(4).Value,.Fields(5).Value, vbNormalFocus
解开也就是E:\单机游戏\反恐精英1.5\cstrike.exe -console, vbNormalFocus这样可以吗

Answer 1

问题1补充:刚试了下把工程.exe文件放到E:\单机游戏\富甲天下4\目录里运行调用mk4.exe一点问题没有
除过这目录无论在那调用E:\单机游戏\富甲天下4\mk4.exe mk4.exe都会提示游戏里缺少文件Shell .Fields(4).Value, vbNormalFocus这是代码 =运行 E:\单机游戏\富甲天下4\mk4.exe

Answer 2

CommonDialog1.InitDir = Adodc1.Recordset.Fields(4).Value
CommonDialog1.ShowOpen
Shell .Fields(4).Value, vbNormalFocus用上面的话可以打开并且不出错误，但我不想用CommonDialog 有没有其它办法？应该就是是“当前文件夹”的位置问题。 
文件在执行的時候已经产生了，但是却生成到了vb本身的路径下，或者其它 当前路径 下了。 
怎么明确设置来源文件/目标文件的完整路径