WebForm1.aspx.vb Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If (Page.IsValid) Then
            '当各项值都通过验证时
            '与Access数据库进行链接
            Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0 ;Data Source=" + Server.MapPath("sample.mdb")
            Dim myConn As OleDbConnection = New OleDbConnection(strConn)
            '打开链接
            myConn.Open()
            Dim StrSQL As String
            StrSQL = "Select * From zhuce Where username='" + txtName.Text + "'"
            Dim myCommand As OleDbCommand = New OleDbCommand(StrSQL, myConn)
            '用reader对象来查询用户名是否已经存在
            Dim reader As OleDbDataReader
            reader = myCommand.ExecuteReader()
            If reader.Read() Then
                '若存在
                'Message.InnerHtml = "<p align=center><B>该用户已经存在!</B>"
                Response.Write("该用户已经存在!")                reader.Close()
            Else
                '不存在,则将该用户信息增加到数据库
                reader.Close()
                StrSQL = "INSERT INTO zhuce VALUES('" + txtName.Text + "','" + txtPassWord.Text + "','" + txtEmail.Text + "')"
                myCommand = New OleDbCommand(StrSQL, myConn)
                '执行插入语句
                myCommand.ExecuteNonQuery()
                ' Message.InnerHtml = "<p align=center><B>注册成功!</B>"
                Response.Write("注册成功!")
            End If
            '关闭链接
            myConn.Close()
        End If
    End Sub第一个问题:Response.Write("该用户已经存在!"),这语句没有用.
第二个问题:  '执行插入语句
提示操作必须使用一个可更新的查询。行 66:myCommand.ExecuteNonQuery()