vb中用addnew方法，对Access数据库增加记录,但是增加记录是会把第一条记录给替换了，该如何解决呢

这是我回答另一个修改密码时的答案，可以参考一下，我用的是dbgrid，粘贴答案如下：
设置两个按钮，一个是添加，一个是确定，然后添加按钮代码为：
Data1.DatabaseName = "数据所在路径db1.mdb"
Data1.RecordSource = "表1"
Data1.Refresh'刷新表格
Data1.Recordset.MoveLast'移动指针到表格最后一个数据
Text1.SetFocus'聚焦到text1
Text1.Text = ""'这里的text是你要更换密码的空白文本
确定按钮代码如下：
Data1.Recordset.AddNew
Data1.Recordset("密码") = Val(Text1.Text)
Data1.Recordset.Update
值得一提的是，首先应该把确定按钮设置为不可用，然后text1代码填写为：
private sub text1_change()'当文本发生变化时
command1.enabled=true‘将确定按钮设置为可用
end sub
这样的设置就不会出现错误提示，也能保证原有密码不会被改写。

使用ado对象，不要用ado控件

上代码