Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        If boolModeAddNew = True Then
            If Trim(txtUserID.Text) <> "" And Trim(txtName.Text) <> "" And Trim(txtConfirmPswd.Text) Then
                If txtPassword.Text = txtConfirmPswd.Text Then
                    strSQL = " insert into tblProfileLabOfficer ([userId], [name], IC, Password)values('" + txtUserID.Text + "','" + txtName.Text + "','" + txtIC.Text + "','" + txtPassword.Text + "')"
                    actOfficer(strSQL)



                Else
                    MsgBox("Password not match")
                End If



            Else
                MsgBox("The value Not Allowed Blanked! Try Again")
            End If

            MsgBox("The New Data Has Been Recorded")
            btnAdd.Text = "Add New"
            txtUserID.Text = ""
            txtName.Text = ""
            txtIC.Text = ""
            txtPassword.Text = ""
            txtConfirmPswd.Text = ""

            enableFalse()

            boolModeAddNew = True


            ds = selectOfficer()
            dglabOfficer.DataSource = ds
            dglabOfficer.DataMember = "tblProfileLabOfficer"

        Else
            btnAdd.Text = "kk"
            Clear()
            enableTrue()
            boolModeAddNew = True

        End If

    End Sub