DataServer   = "(local)"                                  '数据库服务器IP
  DataUser     = "sa"                                       '访问数据库用户名
  DataBaseName = "KesionCMS"                                '数据库名称
  DataBasePsw  = "989066"                                   '访问数据库密码
End if

这段下面加入以下字符

'采集数据库路径
CollectDBPath="\KS_Data\Collect\KS_Collect.Mdb"

打开是可以了，不过显示的是乱码了。