调试了一个晚上都不知道是哪里出错，请大家帮我看看，谢谢！

我想添加新的记录，可是用以下程序每次添加的都是把原来的第一条记录覆盖掉，而不是在后面添加新的行来添加新的记录，到底是哪里出错呢？请大家帮我看看，谢谢了！我调试了一个晚上都找不出答案！Dim comm As New adodb.Connection
Dim rs As New adodb.Recordset
Private Sub Command1_Click()SQL = "SELECT * FROM mima WHERE 用户名='" & Text1.Text & "'"
Set rs = comm.Execute(SQL)
If Not (rs.EOF Or rs.BOF) Then
MsgBox "该用户已存在，请重新输入！"
Text1.Text = ""
Text1.SetFocus
Else
If Text2.Text <> Text3.Text Then
MsgBox "两次密码不一样，请重新输入新密码！"
Text2.Text = ""
Text2.SetFocus
ElseAdodc1.Recordset.AddNew
       Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End If
End IfEnd SubPrivate Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End SubPrivate Sub Command3_Click()
Form2.Show
Unload Me
End SubPrivate Sub Form_Load()
comm.Open connstr
Text1.Text = ""
Text2.Text = ""
End SubPrivate Sub Form_Unload(Cancel As Integer)
Set comm = Nothing
Set rs = Nothing
End Sub