为什么不能读数据库

Set rs = Server.CreateObject("ADODB.Connection")
rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&server.MapPath("data\db.mdb")
set us=server.CreateObject("adodb.recordset")
us.open "select 通用名 from 药物库"
%>
<%=us("通用名")%>
代码应该没问题啊，怎么运行就出错，不能显示呢。
网页显示以下错误：
ADODB.Recordset ���� '800a0e7d'

�����޷�����ִ�д˲������ڴ����������������ѱ��رջ���Ч��

/login.asp���� 13