为什么我在vb中保存数据时总是覆盖了数据库中的第一条记录？？？

[ChinaKable]

为什么我在vb中保存数据时总是把数据库中的第一条记录覆盖了？？？
请问如何改正？
里面代码如下：
Private Sub Command2_Click()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
If Text2.Text = "" Then
MsgBox "请请输入学生ID！"
Command2.Enabled = False
Else
Command2.Enabled = True
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path_ & "\UserMessage.mdb"
rst.Open "select * from studentelective", cnn, adOpenDynamic, adLockPessimistic
rst!studentID = Text2.Text
rst!studentname = Text1.Text
rst!coursename = Textname.Text
rst!courseId = TextID.Text
rst.Update
Command2.Enabled = False
End If
End Sub

如何修改呀？请帮帮小弟！ 还有：

如果在数据库中增加一条表中已有的记录,vb运行时又会出错，请问何避免出错！
请CSDN的高手指点！！！详细一点讲解，因为小弟刚学不久！
给分答谢！

[yoki]

rst.Open "select * from studentelective", cnn, adOpenDynamic, adLockPessimistic
rst.addnew
rst!studentID = Text2.Text
rst!studentname = Text1.Text
rst!coursename = Textname.Text
rst!courseId = TextID.Text
rst.Update
Command2.Enabled = False

[IT服务]

你记录集打开了就在第一条记录哪里,进来就付值,当然是哪样了.楼上的对.

[liufeng7600]

rst.Open "select * from studentelective", cnn, adOpenDynamic, adLockPessimistic
rst!studentID = Text2.Text
rst!studentname = Text1.Text
rst!coursename = Textname.Text
rst!courseId = TextID.Text
rst.Update
你这是修改了，当然是第一条了
你这样：
rst.Open "select * from studentelective", cnn, adOpenDynamic, dLockPessimistic
rst.AddNew array ("studentID","studentname","courseId","courseId"), _
array (Text2.Text,Text1.Text,Textname.Text,TextID.Text)
这就添加了

[yiyezhiqiu]

避免数据重复可以在增加记录之前利用关键字在表中查找例如可以用“select * from studentelective where studentID = "'& Text2.Text &"' ”如果返回的记录集的EOF为真表示已有该条记录，就不要添加了。

[kong佳]

在下遇到过这种问题,用ADDNEW老是不行,最后改为.RS.OPEN"INSERT INTO TABLE VALUES()"就可以了,不过用ADDNEW是肯定可以的,但不知问题出在什么地方.

[WangPengAn]

AddNew方法