มันขึ้น Errors แบบนี้ครับ ทำไงดี แก้ยังไง รบกวนด้วยครับ (ผมทำโปรเจคอยู่ครับ ใกล้ส่งแล้วด้วย!!!)

<script runat="server">

    'ทำงานเมื่อผู้ใช้กรอกข้อมูลการสมัครสมาชิกเสร็จและคลิกปุ่ม ?สมัครสมาชิก?
    Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim status As MembershipCreateStatus
        Membership.CreateUser(txtUsername.Text, txtPassword.Text, txtEmail.Text, ddlQuestion.Text, txtAnswer.Text, True, status)
        If status = MembershipCreateStatus.Success Then
            srcCustomerProfile.InsertParameters("M_FirstName").DefaultValue = txtFirstName.Text
            srcCustomerProfile.InsertParameters("M_LastName").DefaultValue = txtLastName.Text
            srcCustomerProfile.InsertParameters("M_TelNo").DefaultValue = txtPhone.Text
            srcCustomerProfile.InsertParameters("M_MobileNo").DefaultValue = txtMobile.Text
            srcCustomerProfile.InsertParameters("M_Address").DefaultValue = txtAddress.Text
            srcCustomerProfile.InsertParameters("M_Province").DefaultValue = txtProvince.Text
            srcCustomerProfile.InsertParameters("M_City").DefaultValue = ddlCity.Text
            srcCustomerProfile.InsertParameters("M_ZipCode").DefaultValue = txtZipcode.Text
            srcCustomerProfile.InsertParameters("M_UserName").DefaultValue = txtUsername.Text
            srcCustomerProfile.Insert()
            Roles.AddUserToRole(txtUsername.Text, "Member")
            Microsoft.VisualBasic.MsgBox("การสมัครสมาชิกเสร็จสมบูรณ์", MsgBoxStyle.OkOnly, "กนกวิมาน สปอร์คลับ")
            MultiView1.ActiveViewIndex = MultiView1.ActiveViewIndex + 1
        ElseIf status = MembershipCreateStatus.DuplicateEmail Then
            lblMessage.Text = "อีเมล์ซ้ำ กรุณาใส่ใหม่"
        ElseIf status = MembershipCreateStatus.DuplicateUserName Then
            lblMessage.Text = "ชื่อผู้ใช้ซ้ำ กรุณาใส่ใหม่"
        ElseIf status = MembershipCreateStatus.InvalidEmail Then
            lblMessage.Text = "คุณใส่อีเมล์ไม่ถูกต้อง"
        ElseIf status = MembershipCreateStatus.InvalidPassword Then
            lblMessage.Text = "คุณใส่รหัสผ่านไม่ถูกต้อง"
        Else
            lblMessage.Text = "เกิดข้อผิดพลาดในการลงทะเบียน กรุณาลงทะเบียนใหม่"
        End If
    End Sub

    'ทำงานหลังจากการสมัครสมาชิกสำเร็จ 
    Protected Sub View3_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        lblShowName.Text = txtFirstName.Text
        lblShowUsername.Text = txtUsername.Text
        lblShowPassword.Text = txtPassword.Text
    End Sub

    'ทำงานเมื่อโหลดเพจขึ้นมาครั้งแรก โดยกำหนดค่า Index เริ่มต้นให้กับ MultiView1 เท่ากับ 0
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        If Not Page.IsPostBack Then
            MultiView1.ActiveViewIndex = 0
        End If
    End Sub

    'ทำงานหลังจากเลือกเงื่อนไขในการสมัครสมาชิกและคลิกปุ่ม ?ลงทะเบียน?
    Protected Sub btnRegister_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        If rdbtnAgree.Items.Item(0).Selected Then
            MultiView1.ActiveViewIndex = 1
        Else
            Response.Redirect("~\Home.aspx")
        End If
    End Sub

</script>