VB 用户添加,数据不能添加到数据库,求大神指教
Private Sub Command1_Click()
If Text3.Text <> Text2.Text Then
Debug.Print "1"
MsgBox "两次输入的密码必须相同", vbCritical, "提示"
Text2.Text = ""
Text3.Text = ""
Text2.SetFocus
ElseIf Text3.Text = Text2.Text Then
Debug.Print "2"
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.Open "Provider = microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\login.mdb"
rs.Open "select * from login ", conn, 2, 2
Do While Not rs.EOF
If rs.Fields("uname") = Text1.Text Then
Debug.Print "201"
MsgBox "用户已被注册", vbCritical, "提示"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
Exit Do
Else
Debug.Print "202"
Dim pwd As String
pwd = EnCodeString("pwd")
' rs.Format "insert into login('uname','upwd' )values ('" & Text1.Text & "','" & pwd & "')"
' rs.AddNew
rs.Fields("uname") = Text1.Text
rs.Fields("upwd") = pwd
' rs.Update
' rs.Close
MsgBox "注册成功"
End If
' rs.MoveNext
Loop
End If
Debug.Print "3"
End Sub