修改之后,
If TextBox1.Text <> TextBox2.Text Then
Response.Write("<font size=4 color=red>你二次输入的密码不正确</font>")
Else
Dim sqlupdate As String = "update username set uspass='" & TextBox1.Text & "'"
Dim sqlconn As OleDbConnection = New OleDbConnection(sqlsource)
Dim cmdtable As OleDbCommand = New OleDbCommand(sqlupdate, sqlconn)
cmdtable.CommandType = CommandType.Text
sqlconn.Open()
cmdtable.ExecuteNonQuery()
sqlconn.Close()
Response.Redirect("head.htm")
End If