Recorset.Close ' para limpiar los datos del recorset, despues de esto puedes realizar otra ves el open por si quieres conectarte a otra tabla...
tambien puedes usar esto:
if Recorset.State = adStateOpen Then Recorset.Close
por si quieres saber si el recorset esta abierto o viseversa...
if Recorset.State = adStateClose Then Recorset.Open
Set Recorset =Nothing 'para liberar la memoria esto lo puedes hacer en el UnLoad de la forma...