Dim StuName, StuNo, StuSex, StuPro As String
Dim BornDate As DatePrivate Sub btnAddNew_Click()
StuName = txbName.Text
StuNo = txbStuNo.Text
StuProf = cmbPro.Text
StuSex = cmbSex.Text
BornDate = txbBirth.Text
Adodc1.Refresh
With Adodc1.Recordset
  .MoveLast
  .AddNew
  .Fields("姓名") = StuName
  .Fields("学号") = StuNo
  .Fields("性别") = StuSex
  .Fields("专业") = StuProf
  .Fields("出生年月") = BornDate
  .Update
End WithEnd SubPrivate Sub btnDelete_Click()
  Adodc1.Recordset.Delete
  Call btnNext_Click
  Adodc1.Recordset.Update
End SubPrivate Sub btnNext_Click()
If Not Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then Adodc1.Recordset.MovePrevious
End SubPrivate Sub btnPrev_Click()
If Not Adodc1.Recordset.BOF Then Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveNext
End SubPrivate Sub Form_Load()
    Adodc1.ConnectionString = "Provider=VFPOLEDB.1;Data Source=" + App.Path + "\Data\Student.DBC" + ";Password=" + """" + """" + ";Collating Sequence=MACHINE"
    Adodc1.Refresh
    Set txbName.DataSource = Adodc1
    Set cmbSex.DataSource = Adodc1
    Set txbStuNo.DataSource = Adodc1
    Set txbBirth.DataSource = Adodc1
    Set cmbPro.DataSource = Adodc1
End Sub点击btnAddNew(添加一条记录),Update出错提示:多步操作产生错误,请检查每一步的值。另外就是删除操作明明删除记录了,在数据库里看结果还在,但是程序中就看不了(以前一条,后一条记录的方式查看),重新运行程序也不行,就这么点弄了一下午了,哎那个火啊!