请教一个程序问题

Question

With rscourse                If addFlag Then .AddNew
                rscourse.Fields(0) = Textid.Text
                rscourse.Fields(1) = Textname.Text
                rscourse.Fields(2) = Combo1.Text
                rscourse.Fields(3) = TextBorndate.Text
                rscourse.Fields(4) = TextClassid.Text
                rscourse.Fields(5) = Texttel.Text
                rscourse.Fields(6) = TextRudate.Text
                rscourse.Fields(7) = Textaddress.Text
                rscourse.Fields(8) = TextComment.Text
                rscourse.Update
                MsgBox "添加学籍信息成功！", vbOKOnly + vbExclamation, "警告"
                
                
  End With
=================================================
改为
                If addFlag Then 
                rscourse.AddNew
                rscourse.Fields(0) = Textid.Text
                rscourse.Fields(1) = Textname.Text
                rscourse.Fields(2) = Combo1.Text
                rscourse.Fields(3) = TextBorndate.Text
                rscourse.Fields(4) = TextClassid.Text
                rscourse.Fields(5) = Texttel.Text
                rscourse.Fields(6) = TextRudate.Text
                rscourse.Fields(7) = Textaddress.Text
                rscourse.Fields(8) = TextComment.Text
                rscourse.Update
                MsgBox "添加学籍信息成功！", vbOKOnly + vbExclamation, "警告"
                end if

Answer 1

试试采用sql   insert into语句

Answer 2

我认为在打开的时候如果用上述方法则是如此，但不防、试一下，改为
cnn1.Provider = "Microsoft.jet.OLEDB.4.0"
cnn1.Open "StudentFile.mdb"
with  rscourse
  .ursorType = adOpenKeyset
  .LockType = adLockOptimistic
  .Open "student_Info", Con, , adCmdTable
  .Fields(0) = Textid.Text
  .Fields(1) = Textname.Text
  .Fields(2) = Combo1.Text
  .Fields(3) = TextBorndate.Text
  .Fields(4) = TextClassid.Text
  .Fields(5) = Texttel.Text
  .Fields(6) = TextRudate.Text
  .Fields(7) = Textaddress.Text
  .Fields(8) = TextComment.Text
  .Update
  MsgBox "添加学籍信息成功！", vbOKOnly + vbExclamation, "警告"
                  End With