添加数据库记录，执行时总是提示“实时异常，对象打开时不允许操作”

添加数据库记录，执行时总是提示“实时错误，对象打开时不允许操作”
添加数据库记录，执行时总是提示“实时错误，对象打开时不允许操作”帮我看看问题出在哪里，谢谢了
Private Sub command1_click()
Dim Dmin As Integer
Command3.Enabled = False
If Command1.Caption = "添加" Then
status (True)
bAdd = True
ClearData
Command1.Caption = "保存"
Command1.Enabled = True
Command2.Enabled = True
Text1.SetFocus
ElseIf Command1.Caption = "保存" Then
rs.Open "select max(编号) as [dmin] from 船舶申请表", db, adOpenKeyset, adLockOptimistic
  Dmin = Val(rs(0).Value)
  Adodc1.Recordset.AddNew
  rs.Close
   
   
  Adodc1.Recordset.Fields("编号") = Dmin + 1
  Adodc1.Recordset.Fields("日期") = date1.Value
  Adodc1.Recordset.Fields("船名") = Combo1.Text
  Adodc1.Recordset.Fields("船舶类型") = Text2.Text
  Adodc1.Recordset.Fields("总吨") = Val(Text3.Text)
  Adodc1.Recordset.Fields("基本费用") = Val(Text4.Text)
  Adodc1.Recordset.Fields("货物名称") = Combo2.Text
  Adodc1.Recordset.Fields("货物数量") = Val(Text5.Text)
  Adodc1.Recordset.Fields("航线名称") = Combo3.Text
  Adodc1.Recordset.Update
  Adodc1.Recordset.MoveFirst
  Adodc1.Recordset.MoveLast
  Adodc1.Refresh
  DataGrid1.Refresh
End If
End Sub

[解决办法]
DataGrid1.Refresh 
End If 
rs.Close 把这个放到这里测试一下。应该就可以了。