Public Sub Pc_system()
        connect()
        '----------------------------------------ID EMPLOYERS
        Dim query4 As String = "Select Dieuthinsi, Tmhma, Grafeio FROM organizations INNER JOIN pcsystems On organizations.Id_organizations = pcsystems.Id_organizations"
        Dim query5 As String = "Select Empl_Name,Surname FROM employers INNER JOIN pcsystems On employers.Id_employers = pcsystems.Id_employers; "
        Dim sql = String.Concat(query4, ";", query5)

        Dim sqlcom As New MySqlCommand
        Dim sqladapter4 As New MySqlDataAdapter
        Dim table4 As New DataTable

        With sqlcom
            .CommandText = sql
            .Connection = conn

        End With
        With sqladapter4
            .SelectCommand = sqlcom

            .Fill(table4)
        End With


        For n = 0 To table4.Rows.Count - 1
            With ListView3
                .Items.Add(table4.Rows(n)("Dieuthinsi"))
                With .Items(.Items.Count - 1).SubItems
                    .Add(table4.Rows(n)("Tmhma"))
                    .Add(table4.Rows(n)("Grafeio"))
                    .Add(table4.Rows(n)("Empl_Name"))
                    .Add(table4.Rows(n)("Surname"))
                End With

            End With
        Next


        '=====================================================================
    End Sub