录入新数据就自动把原来的记录替换调了,帮忙看看什么问题(我是新手)
comand 代码:

Private Sub Command3_Click()
If Text1.Text = "" Then
MsgBox "请输入姓名！"
Exit Sub
End If
If Text2.Text = "" Then
MsgBox "请输入学号！"
Exit Sub
End If
If Option1(0).Value = False And Option1(1).Value = False Then
MsgBox "请输入性别！"
Exit Sub
End If
Adodc1.Recordset("姓名") = Text1.Text
Adodc1.Recordset("学号") = Text2.Text
Adodc1.Recordset("家庭住址") = Text3.Text
MsgBox "信息录入成功！"
End Sub

Private Sub Command3_Click()
If Text1.Text = "" Then
MsgBox "请输入姓名！"
Exit Sub
End If
If Text2.Text = "" Then
MsgBox "请输入学号！"
Exit Sub
End If
If Option1(0).Value = False And Option1(1).Value = False Then
MsgBox "请输入性别！"
Exit Sub
End If
Adodc1.Recordset.AddNew
Adodc1.Recordset("姓名") = Text1.Text
Adodc1.Recordset("学号") = Text2.Text
Adodc1.Recordset("家庭住址") = Text3.Text
Adodc1.Recordset.Update
MsgBox "信息录入成功！"
End Sub



試一下吧。