Cerrar Recorset para hacer mas consulta

[joemanu]

Hola:

Soy nuevo en esto de visual basic, y solo buscando he podido hacer un codigo para hacer abrir un BD en Access con visual basic, y hacer una consulta. Hasta ahi todo bien, pero el programa solo me permite hacer una consulta, ya que luego me aparece un mensaje que dice "la operacion no esta permitida si el objeto esta abierto", como puedo cerrar el recordset, y poder hacer consultas sin tener que cerrar el formulario.

este es el codigo de mi programa

Saludos


Option Explicit
Dim Cnn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim SQL As String
Dim A As String
Dim B As Date


Private Sub Command1_Click()
inicio:
B = DTPicker1.Value
A = Text1.Text
SQL = "Select * from Matriculas where Patente ='" + A + "' and Fecha = #" & Format(B, "mm/dd/yyyy") & "#"
Rs.Open SQL, Cnn, adOpenDynamic, adLockOptimistic
DataGrid1.ClearFields
Set DataGrid1.DataSource = Rs
DataGrid1.Refresh
DataGrid1.Visible = True
GoTo inicio
End Sub

Private Sub Form_Load()
DataGrid1.Visible = False
DTPicker1.Value = Date
B = DTPicker1.Value
Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Barreras\BD_Patentes.mdb;Persist Security Info=False;"
Cnn.CursorLocation = adUseClient

End Sub