VBA/Access

Bonjour,

A l'aide d'un formulaire j'aimerais remplir ma base de données.
J'ai crée pour cela une méthode afin que je clique sur le boutton, cela m'ajoute une ligne dans ma base.

Voici le code en question :

Private Sub Ajouter_Enreg_Click()
On Error GoTo Err_Ajouter_Enreg_Click

'####################################################################################
' Button Ajout '
'####################################################################################
'DoCmd.GoToRecord , , acNewRec

initADO

Dim a, b
Dim connect_user

connect_user = Environ("Username")

a = InputBox("Veuillez entrer la référence du dossier", "Référence du Dossier")
b = InputBox("Veuillez entrer la date du dossier", "Date du Dossier")

rst.Open , db

rst.AddNew

rst("Référence Dossier") = a
rst("Identifiant Utilisateur") = connect_user
rst("Date Dossier") = b

rst.Update

Exit_Ajouter_Enreg_Click:
Exit Sub

Err_Ajouter_Enreg_Click:
MsgBox err.Description
Resume Exit_Ajouter_Enreg_Click

End Sub

Cela me retourne : "Aucun texte de commande n'a été défini pour l'objet de commande".

Si quelqu'un a une idée du comment ^^