Quando rientri nel form esegui nuovamente la select sul recordset prima di associarlo alla griglia? Tipo:
codice:
Private Sub Form_Load()
Rs.CursorLocation = adUseClient
stringa = "select * from Tabella "
Rs.Open stringa, Db, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = Rs
DataGrid1.Refresh
End Sub
E quando fai unload del form chiudi il recordset?
codice:
Private Sub Form_Unload(Cancel As Integer)
Set DataGrid1.DataSource = Nothing
If Rs.State = 1 Then Rs.Close
Set Rs = Nothing
End Sub