关于注册代码的实现，不知道错哪？

Question

Private Sub Command2_Click()
Dim a, b
If Text2.Text <> Text3.Text Then
a = MsgBox("两次输入的密码不一致，请重新输入！", vbExclamation, "提示")
Else
b = MsgBox("注册成功！", vbExclamation, "提示")
re4.AddNew
re4.Fields("用户名").Value = Text1.Text
re4.Fields("密码").Value = Text2.Text
re4.Update
End If
End Sub
以上是注册新用户名代码
按注册按狃后，跳出注册成功的msgbox但，系统出错了，说：对象关闭时，不允许操作？
提示：re4.addnew 出错！
不知道错哪？高手指教
谢！

Answer 1

.....
re4.open "表名称",conn（假设数据库连接对象为conn）
re4.AddNew
.....

Answer 2

或者用 Insert into 语句来做：Private Sub Command2_Click()
Dim a, b
If Text2.Text <> Text3.Text Then
a = MsgBox("两次输入的密码不一致，请重新输入！", vbExclamation, "提示")
Else
b = MsgBox("注册成功！", vbExclamation, "提示")conn.Execute("Insert Into 表名称(用户名,密码) Values('" & Text1.Text & "','" & Text2.Text & "')")End If
End Sub