ＤataGrid在数据库中添加一行数据，出现对象关闭时，不允许操作是怎么回事？（vb6.0+access）

Question

w代码如下：请高手指点：
Private Sub Command1_Click()Dim rs As New ADODB.Recordset
str1 = "输入新记录"
str2 = MsgBox(str1, vbOKCancel, "添加记录")
If str2 = vbOK Thenrs.AddNew
          rs("id") = "Text1.Text"
          rs("name") = "Text2.Text"
          rs("price") = "Text3.Text"
          rs("shangjia") = "Text4.Text"
          rs("zongshu") = "Text5.Text"
          rs("lingyong") = "Text6.Text"
          
          rs("kucun") = "Text7.Text"
          rs("date") = "Text8.Text"
          rs("beizhu") = "List1.Text"
    
rs.UpdateSet rs = Nothing
MsgBox ("添加成功")
End If
 
End SubPrivate Sub Command2_Click()
Unload Me
End SubPrivate Sub Form_Load()
Dim cnn As New ADODB.Connection
Dim rs  As New ADODB.Recordset
Dim cnnstr As String
cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\ye\db3.mdb;Persist Security Info=False"
cnn.ConnectionString = cnnstr
cnn.Open
If cnn.State = adStateOpen Then
MsgBox "恭喜，连接成功！"
Else
MsgBox "连接失败！"
End If
cnn.CloseSet cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim pathstr As String
pathstr = App.Path & "\db3.mdb"
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & pathstr & ";Persist Security Info=False"
cnn.Open
If rs.State <> adStateClosed Then rs.Close
rs.LockType = adLockOptimistic
rs.CursorType = adOpenKeyset
rs.Open "select * from table1", cnn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rsEnd Sub

Answer 1

rs.addnew 之前加入rs.Open "select * from table1", cnn, adOpenKeyset, adLockOptimisticwf 会出现在此上下文中已经关闭或者无效．应该怎么更改？

Answer 2

if rs.state=adstateopen then rs.close
rs.open cnnstr
rs.addnew