Cerrar Recorset para hacer mas consulta

[pana99]

Hola, si esas etiquetas no me gustan como estan.
El tema es que si usas rs.close despues de actualizar el datagrid, los datos de este (el datagrid) se borran
Yo probe asi y anda (no es lo mas prolijo desde el punto de vista de programacion), pero bueno........ anda

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()
'Chequeamos si el recordset esta abierto y lo cerramos para evitar el error
If Rs.State = 1 Then
Rs.Close
End If

B = DTPicker1.Value
A = Text1.Text
SQL = "Select * from Matriculas where Patente ='" + A + "' and Fecha = #" & Format(B, "mm/dd/yyyy") & "#"
DataGrid1.ClearFields
Set DataGrid1.DataSource = Rs
DataGrid1.Refresh
DataGrid1.Visible = True

End Sub

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

End Sub

Espero haberte ayudado