Me.EmployeeTableAdapter.Fill(Me.CaftDatabaseDataSet.Employee)

        Dim columns() As String = {"ID", "fname", "lname", "phone"}

        For Each col As DataGridViewColumn In dgvMyView.Columns
            For Each header As String In columns
                Dim y As String = header.ToUpper
                Dim x As String = col.Name.Substring(0, y.Length).ToUpper

                If (x.Equals(y)) Then
                    col.Visible = True
                    Exit For
                Else
                    col.Visible = False
                End If
            Next
        Next