提问--保存错误，"rs.Update"错误行,提示"对象关闭时、不允许操作"

Question

这是查询窗体对应记录代码,点修改按纽后
     '对应列
      DataGrid1.Col = 1
      add_zhuangpeiIN.Text1 = DataGrid1.Text
      DataGrid1.Col = 2
      add_zhuangpeiIN.Text2 = DataGrid1.Text
      DataGrid1.Col = 3
      add_zhuangpeiIN.Text3 = DataGrid1.Text
      DataGrid1.Col = 4
      add_zhuangpeiIN.Text4 = DataGrid1.Text
      DataGrid1.Col = 5
      add_zhuangpeiIN.Text5 = DataGrid1.Text
      DataGrid1.Col = 6
      add_zhuangpeiIN.Text6 = DataGrid1.Text
      DataGrid1.Col = 7
      add_zhuangpeiIN.Text7 = DataGrid1.Text
      DataGrid1.Col = 8
      add_zhuangpeiIN.DTP1.Value = DataGrid1.Text
      DataGrid1.Col = 9
      add_zhuangpeiIN.Text9 = DataGrid1.Text
      DataGrid1.Col = 10
      add_zhuangpeiIN.Text10 = DataGrid1.Text
      DataGrid1.Col = 11
      add_zhuangpeiIN.Text11 = DataGrid1.Text
      add_zhuangpeiIN.Show这是录入窗体保存
    frm_zhuangpeiIN.DataGrid1.Col = 1
    frm_zhuangpeiIN.DataGrid1.Text = Trim(Text1.Text)
        frm_zhuangpeiIN.DataGrid1.Col = 2
    frm_zhuangpeiIN.DataGrid1.Text = Trim(Text2.Text)
        frm_zhuangpeiIN.DataGrid1.Col = 3
    frm_zhuangpeiIN.DataGrid1.Text = Trim(Text3.Text)
        frm_zhuangpeiIN.DataGrid1.Col = 4
    frm_zhuangpeiIN.DataGrid1.Text = Trim(Text4.Text)
        frm_zhuangpeiIN.DataGrid1.Col = 5
    frm_zhuangpeiIN.DataGrid1.Text = Trim(Text5.Text)
        frm_zhuangpeiIN.DataGrid1.Col = 6
    frm_zhuangpeiIN.DataGrid1.Text = Trim(Text6.Text)
        frm_zhuangpeiIN.DataGrid1.Col = 7
    frm_zhuangpeiIN.DataGrid1.Text = Trim(Text7.Text)
        frm_zhuangpeiIN.DataGrid1.Col = 8
    frm_zhuangpeiIN.DataGrid1.Text = CDate(Trim(DTP1.Value))
        frm_zhuangpeiIN.DataGrid1.Col = 9
    frm_zhuangpeiIN.DataGrid1.Text = Trim(Text9.Text)
        frm_zhuangpeiIN.DataGrid1.Col = 10
    frm_zhuangpeiIN.DataGrid1.Text = Trim(Text10.Text)
        frm_zhuangpeiIN.DataGrid1.Col = 11
    frm_zhuangpeiIN.DataGrid1.Text = Trim(Text11.Text)
 Set rs = Nothing
  rs.Update
      MsgBox "数据已修改!"
    Unload Me"rs.Update"错误行,提示"对象关闭时、不允许操作"
 请问在录入窗体  对应记录 修改后  保存按纽怎么写或者怎么改?

Answer 1

你这个代码也不完整至少这个地方不对
Set rs = Nothing
    rs.Update
    MsgBox "数据已修改!"
应该：
    rs.Update                  '先更新
    Set rs = Nothing           '再 nothing
    MsgBox "数据已修改!"