dim StrSQL as string = "INSERT INTO ALL_USERS (ID,USER_NAME,USER_PASS,TYPE,VEW_FORM,ADD_Button,EDIT_Button,DELETE_Button,FIND_Button,PRINT_Button,EXPORT_Button ) VALUES (" & Txt_ID.Text & ",'" & Txt_USER_NAME.Text & "','" & Txt_USER_PASS.Text & "'," & Txt_TYPE.Text & ",'" & Chk_VEW_FORM.Checked & "','" & Chk_ADD_Button.Checked & "','" & Chk_EDIT_Button.Checked & "','" & Chk_DELETE_Button.Checked & "','" & Chk_FIND_Button.Checked & "','" & Chk_PRINT_Button.Checked & "','" & Chk_EXPORT_Button.Checked & "')"
Dim cn As New SqlConnection("Server =(local);database=ALASEM0;integrated security=true")
Dim StrTableName As String ="ALL_USERS"
Dim da As New SqlDataAdapter(StrSQL, cn)
Dim dt As New DataTable
da.Fill(dt)