是用ado做的关于链接access的输入程序。Private Sub cmdUpdate_Click()
On Error GoTo UpdateErr datPrimaryRS.Recordset.UpdateBatch adAffectAll
Exit SubUpdateErr:
MsgBox Err.Description
End Sub
On Error GoTo UpdateErr datPrimaryRS.Recordset.UpdateBatch adAffectAll
Exit SubUpdateErr:
MsgBox Err.Description
End Sub
不是很明白楼主的意思