帮我看一下代码.该怎么改呀???(VB访问数据库,增加记录的代码)

Question

Option Explicit Private Sub Command1_Click() 
Dim cn As New Connection, rs As New Recordset, sqlstr As String, _ 
xm As String, ch As String, pw As String, i As Integer 
xm = Trim(Text1.Text) 
ch = Trim(Text2.Text) 
pw = Trim(Text3.Text) 
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\乱七八糟\ADO(3)\AdminUser.MDB;Persist Security Info=False" 
cn.Open 
rs.ActiveConnection = cn 
sqlstr = "INSERT INTO 水浒传人物表(姓名,绰号,排位) VALUES ('" & xm & "','" & ch & "','" & pw & "')" 
Do While Not rs.EOF 
 rs("Index1") = i 
 i = i + 1 
Loop 
If xm = "" Or ch = "" Or pw = "" Then 
MsgBox "姓名、绰号、排位," & "至少不能有一项为空,请重新填写 ", vbCritical, "提示" 
Text1.SetFocus 
Else 
cn.Execute (sqlstr) 
MsgBox "添加已成功", vbQuestion, "提示" 
Text1.Text = "" 
Text2.Text = "" 
Text3.Text = "" 
Text1.SetFocus End If 
End Sub Private Sub Command2_Click() 
Unload Form3 
Form2.Show 
Form2.Adodc1.Refresh 
End Sub 
运行时的错误提示:对象关闭时,不允许操作 
大家帮我看一下,再改一下.我实在不会..... 
谢谢啦

Answer 1

Private Sub Command1_Click() 
Dim cn As New Connection, rs As New Recordset, sqlstr As String, _ 
xm As String, ch As String, pw As String, i As Integer 
xm = Trim(Text1.Text) 
ch = Trim(Text2.Text) 
pw = Trim(Text3.Text) 
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\乱七八糟\ADO(3)\AdminUser.MDB;Persist Security Info=False" 
cn.Open 
If xm = "" Or ch = "" Or pw = "" Then 
MsgBox "姓名、绰号、排位," & "至少不能有一项为空,请重新填写 ", vbCritical, "提示" 
Text1.SetFocus 
Else 
cn.Execute (sqlstr) 
MsgBox "添加已成功", vbQuestion, "提示" 
Text1.Text = "" 
Text2.Text = "" 
Text3.Text = "" 
Text1.SetFocus End If 
End Sub