🚀 go-pugleaf

Salve a tutti ho questo problema :
Ho creato un form con un datagrid e un pulsante di ricerca.
I dati da inserire nal datagrid si trovano in un database.
Finch� si tratta di visualizzare i dati e basta non ho problemi  , il
problema nasce quando attraverso il datagrid voglio modificare i dati del
database , mi spiego :
Se modifico un campo nel data grid e mi sposto su un altra riga si verifica
l'evento  DGRID1_AfterUpdate() e se  clicco sul pulsante cerca per
effettuare una ricerca tutto va bene, ma se invece mi sposto sulla colonna
successiva e poi clicco su cerca ( e quindi non si verifica l' evento
DGRID1_AfterUpdate() ) mi va in errore in quanto la connessione � ancora
aperta e quindi la query che uso per ricercare i campi nel db non pu� essere
eseguita.
In sostanza :
Option Explicit
Private cnnOrders As New ADODB.Connection
Private rstOrders As New ADODB.Recordset
Private strConnect As String
Private strSQL As String

Private Sub Form_Activate()
   'Populate the DataGrid
   strSQL = "SELECT * FROM Orders WHERE OrderDate BETWEEN #1/1/95# AND
#12/31/95#"
   rstOrders.Open strSQL, cnnOrders, adOpenKeyset, adLockOptimistic,
adCmdText
   Set adcOrders.Recordset = rstOrders
End Sub
Private Sub cmdVisua_Click()
strSQL = "select PN ,DATA, IMP_T1 AS [IMPORTO T1],IMP_T2 AS [IMPORTO
T2],DIR_IMB AS [DI],TOTALE,ACC_1 AS [ACCONTO N 1],ACC_2 AS [ACCONTO N
2],ACC_3 AS [ACCONTO N 3],POSSE,SALDO AS [VERS A
SALDO],DIFFERENZA,NOTE,COD_OP,MESE,ANNO from CHIUSURE where PN='864'  Order
by DATA,PN"
   adcOrders.RecordSource = strSQL
   rstOrders.Open strSQL, cnnOrders, adOpenKeyset, adLockOptimistic,
adCmdText
   Set adcOrders.Recordset = rstOrders
   Set DGRID1.DataSource = adcOrders
End Sub
Chiaramente se clicco su pulsante cmdVisua mi tira fuori l' errore poich� la
connessione rstOrders � aperta , daltro canto se chiudo la connessione non
visualizzo nulla nella DataGrid..... avete qualche idea ?