Mis a jour impossible , Erreur 3027

Bonsoir
j'ai un problème a propos de ma ma base de donnée j'ai un message qui s'affiche (,mis a jour impossible la base de donnée ou l'objet est en lecture seule" donc je peux pas exécuter ma formulaire (ajout )
c'est ca mon code du formulaire pour le bouton ajout
Quelqu'un peut m'aider svp ?
Merci d'avance


""
Private Sub Ajouter_Click()

Dim db As Database
Dim rs As Recordset
Dim chaine As String

Set db = CurrentDb

chaine = "SELECT * FROM Requêtetable WHERE Nom_Batiment='" & Forms!Requêtetable!Nom_Batiment & "';"


Set rs = db.OpenRecordset(chaine)
Set rs = db.OpenRecordset("Requêtetable")

If rs.EOF = False Then

rs.AddNew

rs!Nom_Domaine = Me!Nom_Domaine
rs!Article = Me!Article

MsgBox ("Le domaine a bien été ajouté ")
rs.Update

rs.Close

Else
MsgBox ("le domaine existe déja ")

End If
End Sub