添加记录问题？

Question

我使用的是 VB6，Access2000，我想向Access数据库中添加记录
程序如下：
    Dim cn   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.Recordset
Private Sub cmdRetry_Click()
txtNumber.Text = ""
txtName.Text = ""
End Sub
Private Sub cmdSubmit_Click()
Rs.AddNew
  With Rs      
    .Fields(0) = Trim(txtNumber.Text)
    .Fields(1) = Trim(txtName.Text)   
   End With
Rs.Update
End Sub
Private Sub Form_Load()cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\系统管理.MDB;Persist Security Info=False"
    cn.Open    
End Sub
总是报错：对象关闭时，操作不被允许。请指正。

Answer 1

Private Sub cmdSubmit_Click()
If rs.State = adStateOpen Then rs.Close
rs.Open "select * from tablename", cn, adOpenDynamic, adLockPessimistic
'把表名换成你的表名就行了!!
Rs.AddNew
  With Rs      
    .Fields(0) = Trim(txtNumber.Text)
    .Fields(1) = Trim(txtName.Text)   
   End With
Rs.Update
End Sub

Answer 2

cuizm(射天狼) : 你怎么这么快呀！！呵呵完全同意~~在前面加一个判断，看记录集是否打开就可以了！！

Answer 3

rs未open或以close
这种错误一般是cn或rs的事，看看是否未打开或未set