你没执行sql语句啊。 rs.Close 前加上dim rs2 As New ADODB.Recordsetrs2.Open s1, cn, adOpenDynamic, adLockOptimisticrs2.close
当然了，少了最主要的一句添加新的话rs.AddNew或编辑的话rs.edit没大仔细看，因该是这样，加在修改之前
