这是“添加”安扭的代码请大家看看错误在那，我实在找不出，谢谢各位！
Private Sub Command1_Click()
Data1.UpdateRecord
If Data1.Recordset.RecordCount<>0 Than
Data1.Recordset.MoveLast
yy = Data1.Recordset.Fields("studentnum")
End If
Data1.Recordset.AddNew
Text1(1).Text = yy
Combo2.Text = "男"
Text1(5).Text = Date
Text1(6).Text = "汉族"

有提示什么错误吗?.

提示是第一行的语法错误

谢谢斑竹肯为我们新手解答疑问啊

Data1.refresh

能更详细的提示吗？
谢谢！

Data1.Recordset.AddNew
Data1.Recordset.Fields("第一个字段名") = Value
Data1.Recordset.Fields("第二个字段名") = Value

Data1.Recordset.Update

If Data1.Recordset.RecordCount<>0 Than
为什么是Than，应该是Then
这句应该也是有问题的：
yy = Data1.Recordset.Fields("studentnum")
应该是：yy = Data1.Recordset.Fields("studentnum").Value

[此贴子已经被作者于2006-12-19 9:39:05编辑过]

谢谢了啊
我解决了问题