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