Visual Basic - Cerrrar un Recordset para volver a utilizarlo

Hola a todos los Programadores y lectores de esta pagina y de este foro..les tengo una duda que desearia que me ayuden a resolverlo yo tengo un recordset que utilizo para una consulta que se refleja en un datagrid el cual esta programado dentro de un boton, mi inquietud es que yo quisera en ese mismo boton y codigo correspondiente poder cerrar ese recorset despues que hace la consulta para que si se desea volver a hacer otra consulta lo vuelva a hacer sin que le salga ningun mensaje de error, espero que alguien me pueda ayudar con esta duda que tengo, muchas gracias de antemano.

Pon el codigo del boton para ver.......

hola cmgcharli ahi esta el codigo..espero que puedas ayudarme gracias , ahi esta el codigo y ojala hayas entendido mi inquietud

Dim fec As Date
fec = dt1.Value

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

Una idea es cerrar primero el recordset que logicamente la primera vez dara error puesto que no esta abierto pero en las demas veces no sera asi. para evitar que el error te pare el progrma utiliza un On Error Goto ejemplo:

Dim fec As Date

On Error Goto ErrorCloseRecordset

fec = dt1.Value

rscon.Open "Select * From prueba Where fecha < # " & fec & "# ", cn
'codgui='" & dccod.Text & "'", cn
Set tabla.DataSource = rscon
exit sub
ErrorCloseRecordset:

Resume Next

hola de nuevo cmgcharli la verdad es que ya no me sale ningun error pero ya no realiza la consulta..no se si podras ayudarme..o alguien podra pero con ese codigo ya no realiza ninguna consulta se queda en la primera q realize..¿habra otra forma de poder cerrarlo y volver a utilizarlo?..en el mismo boton de comando..?

Perdona pero me comi la instrucción que cierra el Recordset, no obstante al no haber puesto la instruccion que cierra el recordset no se producia error y debería realizarte la consulta la primera vez igual que antes

Dim fec As Date

On Error Goto ErrorCloseRecordset

rscon.close

fec = dt1.Value


rscon.Open "Select * From prueba Where fecha < # " & fec & "# ", cn
'codgui='" & dccod.Text & "'", cn
Set tabla.DataSource = rscon
exit sub
ErrorCloseRecordset:

Resume Next

cmgcharli, con este codigo y ahora que he agregado el close.. no ejecuta la consulta...osea la verdad no me sirve asi.., debe de haber otra forma..?
gracias por todo..

Pon como te ha quedado el codigo

este es el codigo...de como esta quedando..y solo realiza la primera vez q realizo la consulta luego ya no hace otra consulta se queda en la primera...

Dim fec As Date
fec = dt1.Value
On Error GoTo ErrorCloseRecordset


rscon.Open "Select * From prueba Where fecha < # " & fec & "# ", cn
'codgui='" & dccod.Text & "'", cn
Set tabla.DataSource = rscon
Exit Sub
ErrorCloseRecordset:

Resume Next

ya me salio creo..gracias por todo...cmgcharli

Te faltaba lo que me comi en el primer correo el cerrar la consulta rscon.close despues del On Error Goto

la verdad es q esta esta teniendo errores al momento de hacer las consultas...