Demande d'aide pour correction de mon code

Bonjour,
VBA Access 2007
Mon code derrière le bouton ajouter est le suivant:


Private Sub Ajouter_Click()
Set BD = CurrentDb()
Set rs = BD.OpenRecordset("select * from Document ")

If IsNull(Me.Codoc.Value) Then
MsgBox "le code du document doit être renseigné"
Me.Codoc.SetFocus
Else

rs.AddNew
rs!Codoc = Me.Codoc.Value
rs.Update

Me.Codoc.Value = Null
Me.Codoc.SetFocus
rs.Close
BD.Close

End If
End Sub

Malheureusement il ne marche pas et la flèche de correction est sur rs.Update
Merci pour votre aide.