附我写的C#类，和VBSCRIPT函数，希望对大家有帮助

using System;
using System.Data;
using System.Configuration;
using System.Web;
using System.Data.OleDb;
namespace acc_select
{
　　/// <summary>
　　/// accselect 的摘要说明
　　/// </summary>
　　public class accselect
　　{
　　//"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\dq\db1.mdb"
　　　　private string conn = ConfigurationManager.ConnectionStrings["tsingConnectionString"].ToString();
　　　　public string sql = string.Empty;
　　　　public int t = 4;
　　　　public object v = null;
　　　　public accselect()
　　　　{
　　　　}
　　/// <summary>
　　　　/// 构造函数，传递ACC参数查询语句
　　　　/// </summary>
　　　　/// <param name="strsql">strsql字符型</param>
　　　　public accselect(string strsql)
　　　　{
　　　　　　sql = strsql;
　　　　}
　　　　/// <summary>
　　　　/// 构造函数，传递ACC参数查询语句
　　　　/// </summary>
　　　　/// <param name="strsql">参数查询语句</param>
　　　　/// <param name="total">字节数</param>
　　　　public accselect(string strsql, int total)
　　　　{
　　　　　　sql = strsql;
　　　　　　t = total;
　　　　}
　　　　/// <summary>
　　　　/// 构造函数
　　　　/// </summary>
　　　　/// <param name="strsql">参数查询语句</param>
　　　　/// <param name="total">字节数</param>
　　　　/// <param name="value">OBJECT值</param>
　　　　public accselect(string strsql, int total, object value)
　　　　{
　　　　　　sql = strsql;
　　　　　　t = total;
　　　　　　v = value;
　　　　}
　　　　/// <summary>
　　　　///　getOdd方法返回OleDbDataReader
　　　　/// </summary>
　　　　/// <param name="odt">定义OleDbType类型</param>
　　　　/// <returns></returns>
　　　　public OleDbDataReader getOdd(OleDbType odt)
　　　　{
　　　　　　OleDbConnection conns = new OleDbConnection(this.conn);
　　　　　　OleDbCommand cmd = new OleDbCommand(this.sql, conns);
　　　　　　OleDbParameter parm = new OleDbParameter("temp", odt, this.t);
　　　　　　parm.Direction = ParameterDirection.Input;
　　　　　　cmd.Parameters.Add(parm);
　　　　　　cmd.Parameters[0].Value = this.v;
　　　　　　conns.Open();
　　　　　　OleDbDataReader oda = cmd.ExecuteReader();
　　　　　　cmd.Dispose();
　　　　　　return oda;
　　　　}
　　　　string Sql
　　　　{
　　　　　　get
　　　　　　{
　　　　　　　　return sql;
　　　　　　}
　　　　　　set
　　　　　　{
　　　　　　　　sql = value;
　　　　　　}
　　　　}
　　　　int T
　　　　{
　　　　　　get
　　　　　　{
　　　　　　　　return t;
　　　　　　}
　　　　　　set
　　　　　　{
　　　　　　　　t = value;
　　　　　　}
　　　　}
　　　　object V
　　　　{
　　　　　　get
　　　　　　{
　　　　　　　　return v;
　　　　　　}
　　　　　　set
　　　　　　{
　　　　　　　　v = value;
　　}
　　　　}
　　}
}
//调用方法
//accselect acc = new accselect();
//acc.sql = "select * from dtt where d_id=?";
//acc.t = 10;
//acc.v = 1;
//OleDbDataReader oda = acc.getOdd(OleDbType.VarChar);
//Repeater1.DataSource = oda;
//Repeater1.DataBind();
function acc_sql(sql,adotype,adodct,strlong,values)
dim connstring,mycmd,myrs,conn
　
　connString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db1.mdb")
　set conn = Server.CreateObject("Adodb.Connection")
　conn.ConnectionString = connString
　conn.open()
　set mycmd = Server.CreateObject("ADODB.Command")
　mycmd.ActiveConnection=conn
　mycmd.CommandText=sql
　mycmd.Prepared = true
　set mypar = mycmd.CreateParameter("temp",adotype,adodct,strlong,values)
　mycmd.Parameters.Append mypar
　set myrs = mycmd.Execute
　set acc_sql=myrs　
end function
’调用方法
’dim rs
’sql="select * from users where id=? order by id"
’set rs=acc_sql(sql,3,1,4,1)
’if not rs.eof then
　　’response.Write(rs(1))
’end if