مشكله في فورم التسجيل - نسخة قابلة للطباعة

كود :
Imports System.Data.OleDb

Public Class Formnewuser



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text = "" And TextBox2.Text = "" Then

            MsgBox("Please put username or password")

        End If



        Dim cmd As New OleDb.OleDbCommand("insert into users(user,pass,Approve,SMR,KH,SA,NA,MOD1,AH,NO,AZ,MA,SJ,MOA,HA,OL) values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", con)

        cmd.Parameters.AddWithValue("@user", OleDbType.VarChar).Value = Trim(TextBox1.Text)

        cmd.Parameters.AddWithValue("@pass", OleDbType.VarChar).Value = Trim(TextBox2.Text)

        cmd.Parameters.AddWithValue("@SMR", OleDbType.Boolean).Value = CheckBox2.Checked

        cmd.Parameters.AddWithValue("@KH", OleDbType.Boolean).Value = CheckBox3.Checked

        cmd.Parameters.AddWithValue("@SA", OleDbType.Boolean).Value = CheckBox4.Checked

        cmd.Parameters.AddWithValue("@NA", OleDbType.Boolean).Value = CheckBox5.Checked

        cmd.Parameters.AddWithValue("@MOD1", OleDbType.Boolean).Value = CheckBox6.Checked

        cmd.Parameters.AddWithValue("@AH", OleDbType.Boolean).Value = CheckBox7.Checked

        cmd.Parameters.AddWithValue("@NO", OleDbType.Boolean).Value = CheckBox8.Checked

        cmd.Parameters.AddWithValue("@AZ", OleDbType.Boolean).Value = CheckBox9.Checked

        cmd.Parameters.AddWithValue("@MA", OleDbType.Boolean).Value = CheckBox10.Checked

        cmd.Parameters.AddWithValue("@SJ", OleDbType.Boolean).Value = CheckBox11.Checked

        cmd.Parameters.AddWithValue("@MOA", OleDbType.Boolean).Value = CheckBox12.Checked

        cmd.Parameters.AddWithValue("@HA", OleDbType.Boolean).Value = CheckBox13.Checked

        cmd.Parameters.AddWithValue("@OL", OleDbType.Boolean).Value = CheckBox14.Checked

        cmd.Parameters.AddWithValue("@Approve", OleDbType.Boolean).Value = CheckBox15.Checked

        con.Open()

        cmd.ExecuteNonQuery()

        con.Close()

        MsgBox("The new user has been saved successfully", MsgBoxStyle.Information)



    End Sub



    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        If CheckBox1.Checked = True Then

            For Each cntr In Me.Controls

                If TypeOf cntr Is CheckBox Then

                    cntr.checked = True

                End If

            Next

        Else

            For Each cntr In Me.Controls

                If TypeOf cntr Is CheckBox Then

                    cntr.checked = False

                End If

            Next

        End If

    End Sub



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Main.Show()

        Me.Close()

    End Sub



    Private Sub Formnewuser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



    End Sub

End Class