呵呵 还有两次

Private Sub Command1_Click()

If Text1.Text = "" Then
MsgBox "输入名字"
ElseIf Text2.Text = "" Or Text3.Text = "" Then
MsgBox "输入密码"
ElseIf Val(Text2.Text) <> Val(Text3.Text) Then
MsgBox "两次密码不一致！"
Else
conopn1
sql = ""
sql = "insert into admin (user1,pass1) values('" & Text1.Text & "','" & Text3.Text & "')"
conn.Open (connstr)
conn.Execute sql
conn.Close
MsgBox "添加成功", 64
Text1.Text = "": Text2.Text = "": Text3.Text = ""
End If

End Sub