连接数据库问题

Microsoft OLE DB Provider for SQL Server (0x80004005)
[DBNETLIB][ConnectionOpen (Connect()).]SQL Server 不存在或拒绝访问。
/conn.asp, 第 13 行

以下是conn.asp文件内容
<%
dim startime
dim conn
dim connstr
dim db,pass_word,User_ID,Data_Source
startime=timer()
db="21sji_job"            '数据库名称
Pass_word=""   'Password=帐号密码
User_ID="sa"      'User ID=登陆帐号
Data_Source="127.0.0.1"   'Data Source=服务名称或者ip    
Set conn = Server.CreateObject("ADODB.Connection")
connStr="Provider=SQLOLEDB.1;Password='"&pass_word&"';Persist Security Info=True;User ID='"&User_ID&"';Initial Catalog='"&db&"';Data Source='"&Data_Source&"'"    
conn.Open connstr
function CloseDb
Conn.close
Set conn = Nothing
End Function
'218.5.77.193
%>
13行是这句conn.Open connstr，怎么解决？