DataGrid проблема с сохранением изменений - VB

Формулировка задачи:

rs  ADODB.Recordset

  cmdFind_Click()
   err_occured

 sql  
rs.
sql =  & .dcmbFind.BoundText &  & .cmbMonth.Text &  & .cmbYear.Text

rs. sql, setConn, adOpenKeyset, adLockBatchOptimistic 

 .DataGrid1.DataSource = rs

err_occured:
MsgBox Err.Description

  cmdSave_Click()
.DataGrid1.Refresh

  Form_Load()
     rs =  ADODB.Recordset
 

Код работает так: при нажатии кнопки cmdFind DataGrid получает данные из Recordset
Проблема в том, что не получается сохранить изменения данных в DataGrid
пробовал различные вариации rs.Open . одни выдают ошибку при попытке удаления или изменения
Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.
другие не выдают ошибку
сохраняю :Me.DataGrid1.Refresh

Решение задачи: «DataGrid проблема с сохранением изменений»

textual
                            Листинг программы 
                        
                            <font color="blue">FROM</font> t_presence pres, t_pres_users <font color="magenta">user</font>