VB6.0使用ADO对象连接数据库：[2]

3． 取查询结果集

global rs as new adodb.recordset

global ps as new adodb.recordset

if rs.state = adstateopen and not isempty(adstateopen) then rs.close

     rs.open sqlstr, dbconnect, adopenkeyset

4． 执行sql语句

dbconn.execute sqlstr

5． 关闭数据库