我在利用VB修改ACCESS中的数据，出现了“由于将在索引,主关键字或关系中创建重复的值,请求对表的改变没有成功.改变该字段中的或包含重复数据的字段中的数据，删除索引或重新定义索引以允许重复的值并再试一次.”的提示。

源代码如下：
Private Sub Command1_Click()
Dim flag As Boolean
Dim stu_no, stu_name, stu_sex, stu_birth, stu_political, stu_class, stu_dept As String

flag = True
If Form2.xuehao.Text = "" Then flag = False
If Form2.xingming.Text = "" Then flag = False
If Form2.xingbie.Text = "" Then flag = False
If Form2.shengri.Text = "" Then flag = False
If Form2.banji.Text = "" Then flag = False
If Form2.zhengzhi.Text = "" Then flag = False
If Form2.xibie.Text = "" Then flag = False
If flag Then
Form1.Adodc1.Recordset.AddNew
Form1.Adodc1.Recordset.Fields("学号").Value = xuehao.Text
Form1.Adodc1.Recordset.Fields("姓名").Value = xingming.Text
Form1.Adodc1.Recordset.Fields("性别").Value = xingbie.Text
Form1.Adodc1.Recordset.Fields("生日").Value = shengri.Text
Form1.Adodc1.Recordset.Fields("政治面貌").Value = zhengzhi.Text
Form1.Adodc1.Recordset.Fields("班级").Value = banji.Text
Form1.Adodc1.Recordset.Fields("系别").Value = xibie.Text
Form1.Adodc1.Recordset.Update
i = MsgBox("数据添加成功，可以继续添加数据", 64 + vbDefaultButton1, "系统提示")
Form2.xuehao.Text = ""
Form2.xingming.Text = ""
Form2.shengri.Text = ""
Form2.banji.Text = ""
Form2.zhengzhi.Text = ""
Form2.xibie.Text = ""
Form2.xuehao.SetFocus
Else
i = MsgBox("数据不完整，请重新输入", 64 + vbDefaultButton1, "系统提示")
End If

End Sub

    ACCESS的数据内容分别是学号、学生姓名、学生性别、学生生日、学生班别、学生政治面貌ID、学生系别，其中主键是学号。

作业期限就要到期啦，请各位哥哥姐姐伸出你们的援手，小弟感激涕零！如知解决方案，回帖或加Q：790997355，谢谢！