用VB给数据库添加记录时为什么原来的记录数保持不变而原来的数据内容在一个个的减少，既是当原来的数据是10个，当用VB给它添加1个时，表里面显示的还是10个，只是原来的第一个数据被我新加入的数据替换了
这是为什么？

Private Sub Command1_Click()
Data1.UpdateRecord
If Data1.Recordset.RecordCount <> 0 Then
Data1.Recordset.MoveLast
yy = Data1.Recordset.Fields("studentnum")
End If
Data1.Recordset.AddNew
Text1(1).SetFocus
Text1(1).SelStart = Len(Text1(1))
MsgBox "信息添加成功!", vbOKOnly, "提示"

End Sub

怎么把打好的包上传到这个论坛上啊
斑竹