VB新增问题

If Len(Text1.Text) < 5 Then
        MsgBox "您输入的准考证号码小于5位,请重新输入!", vbOKOnly + vbQuestion, "登录信息"
        Text1.SetFocus
        Exit Sub
        End If
        If Text2.Text = "" Then
        MsgBox "您输入的姓名为空,请重新输入!", vbOKOnly + vbQuestion, "登录信息"
        Text2.SetFocus
        Exit Sub
        End If
        rsStudent.Edit
        rsStudent.Fields(1).Value = Text1.Text
        rsStudent.Fields(2).Value = Text2.Text
        rsStudent.Fields(3).Value = Date
        rsStudent.Fields(4).Value = Time
     
        rsStudent.Update
        Unload Me
       Form2.Show
怎么实现新增而不是覆盖