Dim sql As String = "Insert Into users" & _
" ( [user], [pass], [Approve], [SMR], [KH], [SA], [NA], [MOD1], [AH], [NO], [AZ], [MA], [SJ], [MOA], [HA], [OL] ) " & _
" Values " & _
" ( @user, @pass, @Approve, @SMR, @KH, @SA, @NA, @MOD1, @AH, @NO, @AZ, @MA, @SJ, @MOA, @HA, @OL ) "
Dim cmd As New OleDb.OleDbCommand(sql, con)
cmd.Parameters.AddWithValue("@user ", TextBox1.Text)
cmd.Parameters.AddWithValue("@pass ", TextBox2.Text)
cmd.Parameters.AddWithValue("@Approve ", CheckBox15.Checked)
cmd.Parameters.AddWithValue("@SMR ", CheckBox2.Checked)
cmd.Parameters.AddWithValue("@KH ", CheckBox3.Checked)
cmd.Parameters.AddWithValue("@SA ", CheckBox4.Checked)
cmd.Parameters.AddWithValue("@NA ", CheckBox5.Checked)
cmd.Parameters.AddWithValue("@MOD1 ", CheckBox6.Checked)
cmd.Parameters.AddWithValue("@AH ", CheckBox7.Checked)
cmd.Parameters.AddWithValue("@NO ", CheckBox8.Checked)
cmd.Parameters.AddWithValue("@AZ ", CheckBox9.Checked)
cmd.Parameters.AddWithValue("@MA ", CheckBox10.Checked)
cmd.Parameters.AddWithValue("@SJ ", CheckBox11.Checked)
cmd.Parameters.AddWithValue("@MOA ", CheckBox12.Checked)
cmd.Parameters.AddWithValue("@HA ", CheckBox13.Checked)
cmd.Parameters.AddWithValue("@OL ", CheckBox14.Checked)
