VB6 aggiornare una dbgrid

[angelocikuantis]

Ho creato una tabella in access collegata tramite data1 con alcini 5 campi testo(nome ,cognome tel, ecc) una dbgrid collegata database ed alcuni button (inserisci, elimina, cerca, aggiorna, esci. Il problema è che dopo fatto una ricerca in cui il record cercato mi viene visualizzato sia nella dbgrid che nei campi, premo il button aggiorna non succede niente.i codici sono:

button inserisci:

Private Sub Command1_Click()
Data1.Recordset.AddNew
End Sub

button cerca

Private Sub Command2_Click()
Dim NomeDaCercare As String
NomeDaCercare = InputBox$("Immettere il nome da ricercare:", "Ricerca nell'agenda")
Data1.RecordSource = "select * from tabella Where nome = '" + NomeDaCercare + "'"
Data1.Refresh
End Sub

button aggiorna

Private Sub Command4_Click()
Data1.Refresh
End Sub

button elimina

Private Sub Command4_Click()
Data1.Recordset.Delete
End Sub

mentre io vorrei che nella dbgrid venissero di nuovo visualizzati tutti i record presenti, grazie

[Dott.Rolli]

Il problema è ke il refresh per aggiornare la griglia lo fai sulla query di ricerca.
Per il button aggiorna devi semplicemente usare la query ke seleziona tutti i record.

button aggiorna

Private Sub Command4_Click()
Data1.RecordSource = "select * from tabella"
Data1.Refresh
End Sub