Hi I think I did it, try this
Dim dbs As Database
Dim rst As Recordset
Set dbs = Application.CurrentDb
Set rst = dbs.OpenRecordset("eventos")
With rst
.AddNew
!id_instituc = Parent.Form!id
!ano = Parent.Form.eltab.SelectedItem
!tipo_evento = cboPorDesarr
.Update...