Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC 驱动程序管理器] 驱动程序的 SQLSetConnectAttr 失败

/main.asp，行 8

<%
Dim fromcitylist
Dim fromcitylist_numRows

Set fromcitylist = Server.CreateObject("ADODB.Recordset")
fromcitylist.ActiveConnection = MM_naer_STRING-------------------------------------- 第八行
fromcitylist.Source = "SELECT distinct xilie FROM sbsj"
fromcitylist.CursorType = 0
fromcitylist.CursorLocation = 2
fromcitylist.LockType = 1
fromcitylist.Open()

fromcitylist_numRows = 0
%>
想问问 哪里出了问题啊

太着急了啊  有哪为好心老大 帮我一下啊  在线等  QQ79677593

[此贴子已经被作者于2007-8-27 9:41:35编辑过]

MM_naer_STRING 设置了数据库连接嚒 ??

ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("数据库地址")
Set MM_naer_STRING= Server.CreateObject("ADODB.Connection")
MM_naer_STRING.open ConnStr

不好意思  我实在是非常的菜  您提供给我下面的那个代码 应该插入在什么位置

代码已经插入进去了 可是
要发疯了 555555555
斑竹能+我QQ一下吗 当面问点问题 原谅我 太菜了

<%
Dim fromcitylist
Dim fromcitylist_numRows
dim ConnStr,MM_naer_STRING
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("数据库地址")
Set MM_naer_STRING= Server.CreateObject("ADODB.Connection")
MM_naer_STRING.open ConnStr

Set fromcitylist = Server.CreateObject("ADODB.Recordset")
fromcitylist.ActiveConnection = MM_naer_STRING-------------------------------------- 第八行
fromcitylist.Source = "SELECT distinct xilie FROM sbsj"
fromcitylist.CursorType = 0
fromcitylist.CursorLocation = 2
fromcitylist.LockType = 1
fromcitylist.Open()

fromcitylist_numRows = 0
%>

呵呵 已经弄好了 下一个问题有出现了 想把菜单列表与这个纪录集连接上 呵呵 楼主真是热心肠的人 。太感激了
<select name="select" id="select">
<option value="<%=(fromcitylist.fields.Item("xilie").value)%>">请选择产品系列</option>
<% while(NOT fromcitylist.EOF)%>
<%
fromcitylist.moveNext()
wend
%>
</select>

但是里面没有数据库的值

dim ConnStr,MM_naer_STRING
这句我没有加 一加上就说出错

吓古求弄出来了  谢谢斑竹,非常感谢

<select name="select" id="select">
<% while(NOT fromcitylist.EOF)%>
<option value="<%=(fromcitylist.fields.Item("xilie").value)%>">请选择产品系列</option>
<%
fromcitylist.moveNext()
wend
%>
</select>


显示数据应该放在循环内部......