OLEDB连接Access，SQL以及创建RecordSet的例子

高分“求购”OLEDB链接Access MDB（2000）的数据库应用例子，或语法
只需包括
Connection
RecordSet
的方法，函数，参数，属性，
以及连接SQL的应用即可～～～～～～～
多谢
---------------------------------------------------------------

ACCESS：
'更改数据库名字
db="data/bankroll.asp"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr

SQL：
strSQLServerName = "localhost" '服务器名称或地址
strSQLDBUserName = "sa" '数据库帐号
strSQLDBPassword = "" '数据库密码
strSQLDBName = "db" '数据库名称
'-----------------------------------------------------------------------------------------------
Set conn = Server.CreateObject("ADODB.Connection")
strCon = "Provider=SQLOLEDB;Server=" & strSQLServerName & ";User ID=" & strSQLDBUserName & ";Password=" & strSQLDBPassword & ";Database=" & strSQLDBName & ";"
conn.Open strCon

=================
recordset:

Set Rs=Server.CreateObject("ADODB.Recordset")
strSQL = "select * from [table]"
rs.Open strSQL,conn,1,1
if rs.RecordCount>0 then
Do While Not rs.EOF
response.write rs("字段1") & "

1<br/>

"
rs.movenext
loop
end if
rs.close
set rs=nothing