在打开Ado记录集之前尽量先判断记录集有否打开，如打开则先关闭之

If rs.State = adStateOpen Then

   rs.Close

End If

rs.open "你的Sql语句",CurrentProject.Connection,1,3

这样可以避免 上次记录集如果未正确关闭，再打开出错的情况

在Ado记录集使用完成后，最好也加这句，以确保关闭

最后再释放对象：set rs=Nothing

State 属性的常用常量：

AdStateClosed ——> 默认，指示对象是关闭的。 

AdStateOpen ——>指示对象是打开的。 

AdStateConnecting ——>指示 Recordset 对象正在连接。 

AdStateExecuting ——>指示 Recordset 对象正在执行命令。 

AdStateFetching ——>指示 Recordset 对象的行正在被读取。