Global dbRs As DAO.Database
Global rsRs As DAO.Recordset

Public Sub subOpenRs(strSelect As String)
Set dbRs = CurrentDb()
Set rsRs = dbRs.OpenRecordset(strSelect, dbOpenDynaset)
End Sub

Private Sub CON_ObjectSelect()
ElemID=1
subOpenRs "SELECT * from tbidobject"
        rsRs.AddNew        
            rsRs!idZulu = ElemID
        rsRs.Update
subCloseRs
End Sub

Set rsRs = dbRs.OpenRecordset(strSelect, dbOpenDynaset)