Private Sub К()
    Dim r                          As ADODB.Recordset
    Set r = New ADODB.Recordset
    r.Open  "tbl_date" , CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly, adCmdTable
    On Error Resume Next
    Kill  "C:\rs.rst" 
    On Error GoTo  0 
    
    r.Save  "C:\rs.rst" , adPersistADTG 'сохраняем в родном формате из какого либо источника
    r.Close: Set r = Nothing
    Set r = New ADODB.Recordset
    r.Open "C:\rs.rst", , adOpenDynamic, adLockOptimistic, adCmdFile 'открываем сохраненый набор Свойство Конектион не указываем
    
    r( 1 ).Value =  "qqqq"  ' изменяем значение
    r.Update
    
    On Error Resume Next
    Kill "C:\rs.rst"
    On Error GoTo 0
    r.Save "C:\rs.rst", adPersistADTG 'заново сохраняем в родном формате
    r.Close: Set r = Nothing
End Sub