一个VB脚本的问题，我可是照书上写的呀！！！！！！

main.asp
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<h1>Country Chooser</h1>
<h2>Welcome back,<% = session("UserName") %></h2>
<a href = "processUser.asp?clear = true">clear cookie</a><br>
You are visitor #:<% = session("UserNumber") %><br>
<hr>
<h2>Enter a country here:</h2>
<form name = "frmState" method = "post" action = "CustList.asp">
  <input type = "text" name = "txtCountry"><br>
  <input type = "submit" id = submit1 name = submit1>
</form>
<h2>Or choose the country from this list</h2>
<%
dim cn
dim rs
set cn = Server.CreateObject("ADODB.Connection")
cn.Open(application("DBconn")) //application("DBconn") = "Provider = SQLOLEDB.1;User ID = sa;Initial Catalog = northwind;Data Source = CXZ;password ="
sSQL = "Select distinct Country from Customers order by Country"
set rs = cn.Execute(sSQL)
do until rs.EOF
  Response.Write("<a href = CustList.asp?txtCountry ="&rs("Country") &">"&rs("Country") & "</a><br>")
  rs.movenext
loop
%>
</BODY>
</HTML>
显示错误：
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
/RealApp2/main.asp, 第 22 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0) 页：
GET /RealApp2/Default.asp 
咋回事呀？？？？？？？？？？？？？？？