INSERT INTO Access avec VB

Sub Test()
Dim db As DAO.Database
  On Error GoTo Erreur
    Set db = DBEngine.OpenDatabase("C:\Database.accdb")
    db.Execute "INSERTO INTO test (blabla) VALUE ('ouf')", dbFailOnError
    Debug.Print "Records Affected = " & db.RecordsAffected
    db.Close
Sortie:
    Set db = Nothing
    Exit Sub
Erreur:
    MsgBox Err.Description, vbExclamation, Err.Number
    Resume Sortie
End Sub