Private Sub Command1_Click()
Dim stemp As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
stemp = "select * from user"
rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Me!密码 <> 确认密码 Then
MsgBox "两次输入的密码不一致，请重新输入", vbExclamation, "Error"
Exit Sub
Else
stemp = "insert into user"
stemp = stemp & "(用户名，密码，身份证号)"
stemp = stemp & " values('" & Me!用户名 & "','" & Me!密码 & "','" & Me!身份证号 & "')"
DoCmd.RunSQL stemp1
Set rs = Nothing
End If
MsgBox "The information of register have saved already!", vbExclamation, "information"
End Sub