Private Sub btnRegister_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegister.Click
        Dim msg As String = ""
        Dim result1 As Integer
        conKk.Close()
        conKk.Open()
        ''Validate empty field
        If (txtName.Text = "") Then
            msg += "Name is empty" & vbCrLf
        End If

        If (mskIC.Text = "" Or mskIC.MaskCompleted = False) Then
            msg += "IC is empty or incorrect format" & vbCrLf
        End If

        If (cboDate.Text = "") Then
            msg += "Birth date is empty" & vbCrLf
        End If

        If (cboMth.Text = "") Then
            msg += "Birth month is empty" & vbCrLf
        End If

        If (cboYear.Text = "") Then
            msg += "Birth year is empty" & vbCrLf
        End If

        If (radMale.Checked = False And radFemale.Checked = False) Then
            msg += "Gender is empty" & vbCrLf
        End If

        If (mskPhone.Text = "" Or mskPhone.MaskCompleted = False) Then
            msg += "Phone is empty or incorrect format" & vbCrLf
        End If

        If (txtAddress.Text = "") Then
            msg += "Address is empty" & vbCrLf
        End If

        If (txtEmail.Text = "") Then
            msg += "Email is empty" & vbCrLf
        End If

        If (txtPassword.Text = "") Then
            msg += "Password is empty" & vbCrLf
        End If

        If (txtRetype.Text = "") Then
            msg += "Retype password is empty" & vbCrLf
        End If

  


        ''Compare password

        If (txtPassword.Text <> "" And txtRetype.Text <> "") Then
            Dim Pass As String = txtPassword.Text
            Dim RetypeP As String = txtRetype.Text

            result1 = String.Compare(Pass, RetypeP)

            If (result1 = -1) Then
                msg += "Password and retype password is unmatch!,Please enter again." & vbCrLf
                'MessageBox.Show(result1)
            Else
                'MessageBox.Show(result1)
            End If
        End If


        ''Concatenate combo box
        Dim DOB As String = ""
        If (cboDate.Text <> "" And cboMth.Text <> "" And cboYear.Text <> "") Then
            DOB = cboDate.SelectedItem.ToString() & "/" & cboMth.SelectedItem.ToString() & "/" & cboYear.SelectedItem.ToString()

        End If
        ''Get gender text
        Dim Gender1 As String = ""
        If (radMale.Checked = True) Then
            Gender1 += radMale.Text
        End If

        If (radFemale.Checked = True) Then
            Gender1 += radFemale.Text
        End If


        ''Display error message or update to database
        If (msg <> "") Then
            MessageBox.Show("Please enter the following items:" & vbCrLf & vbCrLf & msg, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else

          
            Dim myInsert As SqlCommand
            myInsert = New SqlCommand("Insert into Member([MemberID], [Name], [IC], [DOB], [Gender], [TelNo], [Address], [Email], [Password])  Values('" & txtMID.Text & "','" & txtName.Text & "','" & mskIC.Text & "','" & DOB & "','" & Gender1 & "','" & mskPhone.Text & "','" & txtAddress.Text & "','" & txtEmail.Text & "','" & txtPassword.Text & "'", conKk)
            myInsert.ExecuteNonQuery()

            MessageBox.Show("Thanks for your registration,enjoy our services now!", "Registered", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End If
        conKk.Close()
    End Sub

'" & txtPassword.Text.Replace("'", "''") & "'"

myInsert = New System.Data.SqlClient.SqlCommand("Insert into Member([MemberID], [Name], [IC], [DOB], [Gender], [TelNo], [Address], [Email], [Password])  Values(@MID,@Name,@mskIC,@DOB,@Gender1,@mskPhone,@Address,@Email,@Password,@conKk)")

        With myInsert.Parameters
            .AddWithValue("@MID", txtMID.Text)
            .AddWithValue("@Name", txtName.Text)
            .AddWithValue("@mskIC", mskIC.Text)
            .AddWithValue("@DOB", DOB)
            .AddWithValue("@Gender1", Gender1)
            .AddWithValue("@mskPhone", mskPhone.Text)
            .AddWithValue("@Address", txtAddress.Text)
            .AddWithValue("@Email", txtEmail.Text)
            .AddWithValue("@Password", txtPassword.Text)
            .AddWithValue("@conKk", conKk)
        End With

myInsert.ExecuteNonQuery()