一个关于ADODC的有关问题,请高手指教

一个关于ADODC的问题,请高手指教
本人是新手,最近在学VB,做一个ADODC的动态路径,在FORM_LOAD的事件里填加如下程序:
Dim   s   As   String   s   =   App.Path
If   Right(s,   1)   <>   "\ "   Then
s   =   s   +   "\ "
End   If
s   =   "Provider=Microsoft.Jet.OLEDB.3.51;Persist   Security   Info=False;Data   Source=H:\MyProject\VS程序\VB\EX6\TravelAgencyManangeDB.mdb "
Adodc1.ConnectionString   =   s
Adodc1.CommandType   =   adCmdUnknow
Adodc1.RecordSource   =   "select   *   from   TourSightTable "
Adodc1.Refresh
结果是在编译的时候还能运行,但是在DATAGRID的第一行的第一列的数据被清空了,后来我生成了EXE,把EXE和数据放到另一个文件夹里执行却报错了说什么Automation   error   Unspecified   error,请高手指教~

------解决方案--------------------
s = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=H:\MyProject\VS程序\VB\EX6\TravelAgencyManangeDB.mdb "

你这里给的绝对路径，如果数据库转移了应该就是错了
------解决方案--------------------
s = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=H:\MyProject\VS程序\VB\EX6\TravelAgencyManangeDB.mdb "

应该改写成
s = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data source= " & s & "TravelAgencyManangeDB.mdb "
就正确了

另外,App.Path总是返回不以“\”结尾的路径，你程序开头的判断并不必要~