Non c'è un modo per impedire che le modifiche nella datagrid si rifletano anche nel database?

QUesto è il codice che ho, se metto una rs.Close o objConne.Close, nella datagrid scompaiono tutti i dati

codice:
Option Explicit
Public objConn As New ADODB.Connection
Public rs As New ADODB.Recordset


Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)

End Sub

Private Sub entrata_Click()
End Sub

Private Sub Form_Load()
connetti
viewOperations


End Sub


Public Sub connetti()
    
    Dim PercDB As String
    PercDB = App.Path & "\db.mdb"
    
    objConn.Mode = adModeShareExclusive
    objConn.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & PercDB & ";"
    objConn.Open
    
End Sub


Public Sub viewOperations()
    Dim Sql As String
    Sql = "SELECT * FROM fattury ORDER BY id DESC"
    
    With rs
        .ActiveConnection = objConn
        .CursorLocation = adUseServer
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
        .Properties("IRowsetIdentity") = True
        
        .Open Sql, , , , adCmdText
    End With
    
    Set Adodcl1.Recordset = rs
    Set operations.DataSource = Adodcl1.Recordset
    
    operations.Columns(0).Width = 640
    operations.Columns(1).Width = 1070
    operations.Columns(2).Width = 2270
    operations.Columns(3).Width = 5200
    operations.Columns(4).Width = 1300
    operations.Columns(5).Width = 1250
    operations.Columns(6).Width = 1000
    operations.Columns(7).Width = 1000
    

End Sub