求救~急~关于VB+ACCESS ADO INSERT的问题

sql_Admin_Add = "insert into Admin(A_Account,A_Password,A_Priority) values( '" & AdminName & "','" & AdminPwd & "','" & AdminPriority & "')"
rs_Admin_Add.Open sql_Admin_Add, conn, adOpenKeyset, adLockPessimistic数据已经进入数据库 可总报错 不知是怎么回事？我该怎么办
实时错误 '-2147467259(80004005)'
由于将在索引、主关键字、或关系中创建重复的值，请求对表的修改没有成功。改变该字段中的或包含重复数据的字段中的数据，删除索引或重新定义索引以允许重复的值并再试一次。