[alaqsa]

السلام عليكم ورحمه الله وبركاته

اخواني الكرام

انا لدي مشكله
صممت فورم لتسجيل مستخدمين جدد وتحديد صلاحيات لكل شخص منهم عن طريق قوائم الاختيار

وعند تشغيل البرنامج ظهر المشكله التاليه

كما في الصوره

[ATTACH=CONFIG]2751[/ATTACH]


اتمنى منكم التكرم بمساعدتي

لكم كل الشكر


الكود

كود :

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