怎样取得ACCESS结果集

[s_liangchao1s]

Public Function dbRs(dbfile$, sql$) As ADODB.Recordset
CnStr = "PROVIDER=microsoft.jet.oledb.4.0; persist security info =false;data source=" & dbfile & ";Jet OLEDB" ': Database Password=" & DbPw
Set mCON = New ADODB.Connection
mCON.Open CnStr
Set mRS = New ADODB.Recordset
mRS.Open sql, mCON, 1, 3
Set dbRs = mRS
Set mRS = Nothing
Set mCON = Nothing
End Function

谁知道用这种方法连接数据库 要想取得结果集应该怎么写啊？
用
dim rst as recordset
然后用rst.fields("字段名")
这样为什么取不到呢？？

[cqq_chen]

dao和ado没有分清了！再看看msdn

[饮水需思源]

'增加记录：mcon.execute "insert into tablename(...) values(...)"
'修改记录：mcon.execute "update tablename set ... where ..."
'删除记录：mcon.execute "delete from tablename where .."

[vbman2003]

dim rst as recordset
dim sfile as string,sql as string
dim sfieldvalue as string

set rst=dbRs(sfile, sql)
sfieldvalue=format(rst.fields("字段名"))