使用SQL数据库，连接失败请问怎么解决？

Dim SqlNowString,DataPart_D,DataPart_Y,DataPart_H
Dim Conn,DBPath,CollectDBPath,DataServer,DataUser,DataBaseName,DataBasePsw,ConnStr,CollcetConnStr
Const DataBaseType=1                   '系统数据库类型，"1"为MS SQL2000数据库，"0"为MS ACCESS 2000数据库
Const MsxmlVersion=".3.0"                '系统采用XML版本设置

If DataBaseType=0 then
 '如果是ACCESS数据库，请认真修改好下面的数据库的文件名
 DBPath       = "/KS_Data/KesionCMS6.mdb"      'ACCESS数据库的文件名，请使用相对于网站根目录的的绝对路径
Else
  '如果是SQL数据库，请认真修改好以下数据库选项
  DataServer   = "120.***.***.***"                                  '数据库服务器IP
  DataUser     = "sq_****"                                       '访问数据库用户名
  DataBaseName = "sq_****"                                '数据库名称
  DataBasePsw  = "*****"                                   '访问数据库密码
End if

*号是我的SQL数据库信息。

我这样设置侯，上传到空间，访问出现“数据库连接出错，请检查Conn.asp文件中的数据库参数设置。”

请问怎么解决？换成ACCESS数据库侯正常访问。就是连接不到SQL数据库。