Question

如何改这段vb程序 求助各位大神

Private Sub Command2_Click()
Dim a
If MsgBox("确定把此联系人信息加入系统？", vbQuestion + vbYesNo + vbDefaultButton2, "录入") = vbNo Then
Cancel = 1
Else:

Adodc1.Recordset.AddNew
For i = 0 To 3
Text1(i).Enabled = True
Text1(i).Text = ""
Next i

Adodc1.Recordset.Update
a = MsgBox("联系人信息已添加", vbOKOnly + vbInformation + vbDefaultButton1, "提示")
End If
End Sub
这程序能把信息添加到表中，但直接覆盖了表中第一条纪录，该如何改呢？

Answer 1

试试update前先调用movenext方法

Answer 2

别用Adodc，用ADO吧