Visual Basic - cerrar un recordset para utilizarlo de nuevo

hola a todos los lectores y programadores ayer hice una consulta pero revisandolo bien no me sirvio mucho lo que yo necesito es cerrar un recordset que utilizo en una consulta select de fecha que se refleja en un grid este procedimiento esta en un boton pero cuando quiero hacer una nueva consulta por una segunda vez me sale logicamente un mensaje de q el recordset esta abierto, yo quiero cerarrlo en el mismo boton y procedimiento para hacer las consultas que uno quiera, gracias de antemano por su ayuda..

Carga directamente la consulta en el DataSource y asi no tendras que estar cerrando el recordset

Dim fec As Date
fec = dt1.Value

Set tabla.DataSource = "Select * From prueba Where fecha < # " & fec & "# ", cn
'codgui='" & dccod.Text & "'", cn

solo tienes que escribir (en este caso ) al final del procedimiento del boton

'aqui cerras el recorset
rs.close
'y aqui lo descargar de memoria
set rs = nothing