Question

VB数据库添加问题？

代码：
Private Sub addnew_Click()
If Text1.Text <> "" Then
Adodc1.Recordset.addnew

Adodc1.Recordset.Fields("职工编号") = Trim(Text1.Text)
Adodc1.Recordset.Fields("姓名") = Trim(Text2.Text)

Adodc1.Recordset.Fields("身份证号") = Trim(Text3.Text)
Adodc1.Recordset.Fields("民族") = Trim(Text4.Text)

Adodc1.Recordset.update

Adodc1.Refresh
End If
End Sub
为什么老是报错呢？第一次添加没反应，第二次才有正确的插入记录呢？？
高手赐教！！！！

Answer 1

报的什么错啊？另外建议使用ADODB比使用控件灵活

Private RS_USERINFO As New ADODB.Recordset

RS_USERINFO.AddNew
RS_USERINFO("USERID") = add_ID
RS_USERINFO("USERCODE") = Text_USER.Text
RS_USERINFO("PWD") = sPwd
RS_USERINFO("NAME") = Text_NAME.Text
RS_USERINFO.Update