if rs.state = adstateopen then rs.close

con questa se il recordset è aperto lo chiude altrimenti no