Private Sub setupDgPerson()
        Try
            Me.dgCompanyPerson.AutoGenerateColumns = False
            Me.dgCompanyPerson.DataSource = myCompanyPersonGrid.dt
            Me.colPersonFirstName.DataPropertyName = "Firstname"
            Me.colPersonSecondName.DataPropertyName = "SecondName"
            Me.colPersonLastName.DataPropertyName = "Lastname"
            Me.colPersonJobName.DataPropertyName = "Jobname"
            Me.colPersonPhone.DataPropertyName = "Phone"
            Me.colPersonMobile.DataPropertyName = "Mobile"
            Me.colPersonMail.DataPropertyName = "EMail"
            Me.colPersonID.DataPropertyName = "ID"
            Me.colPersonGender.DataPropertyName = "Gender"
 
            Me.colPersonFirstName.HeaderText = lngDgPersonFirstname
            Me.colPersonSecondName.HeaderText = lngDgPersonMiddlename
            Me.colPersonLastName.HeaderText = lngDgPersonLastname
            Me.colPersonJobName.HeaderText = lngDgPersonJobname
            Me.colPersonPhone.HeaderText = lngDgPersonPhone
            Me.colPersonMobile.HeaderText = lngDgPersonMobile
            Me.colPersonMail.HeaderText = lngDgPersonEmail
            Me.dgCompanyPerson.AllowUserToAddRows = False
            Me.dgCompanyPerson.Columns("colPersonID").Visible = False
            Me.dgCompanyPerson.Columns("colPersonGender").Visible = False
        Catch ex As Exception
            frmError.myEx = ex
            If frmError.ShowDialog() = Windows.Forms.DialogResult.Cancel Then
                Application.Exit()
            End If
        End Try
    End Sub