Ho una form con un pulsante che mi richiama un altra form per l'inserimento di dati, questi dati vengono poi salvati nel db.
Ho una grid che visualizza questi dati....

Il problema è che vorrei aggiornare la grid dopo l'inserimento quindi alla chiusura della form di ins. ma in esecuzione non và mentre se lo eseguo passo passo (debug) funziona....



il codice del pulsante è:

Private Sub InserImpianti_Click()
Load frmimpianti
frmimpianti.Show vbModal
DoEvents
Call cmdRefresh_Click 'è un pul che richiama la procedure ripristina
End Sub

Private Sub ripristina()
On Error GoTo RefreshErr
Set grdDataGrid.DataSource = Nothing

adoPrimaryRS.Requery
DoEvents
'valore lo possiamo valutatare =2 o altro
adoPrimaryRS.Move valore - 1, 1
DoEvents
Set grdDataGrid.DataSource = adoPrimaryRS_("ChildCMD").UnderlyingValue
DoEvents
Call setta_colonne
Exit Sub
RefreshErr:
MsgBox Err.Description
End Sub