Dim rs As ADODB.Recordset

Private Sub cmdFind_Click()
On Error GoTo err_occured
'On Error Resume Next
Dim sql As String
rs.Close
sql = "SELECT pres.presence_id, pres.presence_start ,pres.presence_end FROM t_presence pres, t_pres_users user WHERE presence_id=pr_id AND users_username='" & Me.dcmbFind.BoundText & "' AND Month(presence_start)=" & Me.cmbMonth.Text & " AND Year(presence_start)=" & Me.cmbYear.Text

'rs.Open sql, setConn, adOpenStatic, adLockOptimistic ' returns error: Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.
rs.Open sql, setConn, adOpenKeyset, adLockBatchOptimistic 'on change do nothing

Set Me.DataGrid1.DataSource = rs

Exit Sub
err_occured:
MsgBox Err.Description
End Sub

Private Sub cmdSave_Click()
Me.DataGrid1.Refresh
End Sub

Private Sub Form_Load()
    Set rs = New ADODB.Recordset
End Sub

FROM t_presence pres, t_pres_users user