做了一个简单的访问数据库的网页 
<% 
Set rs=Server.CreateObject("ADODB.Recordset") 
'建立一个RecordSet对象的实例变量 rs 
rs.Open "Select * from S1","DSN=q1;" %> 
'使用 rs 继承下来的 Open 方法，通过DSN桥梁q1 
'对某个数据库中的数据表S1执行 Select 查询命令， 
'并且将查询结果纪录集保存在实例变量 rs 中。 
'此时，纪录指针指向rs中的笫1条纪录。注意：我们 
'把(结果记录集中)被指针指向的纪录称为当前纪录。 
姓名为：<% =rs("姓名") %> <p> 
'输出当前纪录的"姓名"字段中的值 
年龄为：<% =rs("年龄") %> <p> 
'输出当前纪录的"年龄"字段中的值 
工资为：<% =rs("工资") %> 
'输出当前纪录的"工资"字段中的值 
<% 
rs.Close '取消rs中保存的查询结果记录集 
set rs=nothing '取消实例变量 rs 
%> 

不过访问不了,提示错误如下: 
Microsoft OLE DB Provider for ODBC Drivers (0x80004005) 
[Microsoft][ODBC Microsoft Access Driver] Microsoft Jet 数据库引擎打不开文件'(未知的)'。 它已经被别的用户以独占方式打开，或没有查看数据的权限。 
数据库没打开，数据源也建了。 
哪位大虾帮忙解决一下啊,多谢!