Public Sub updateCompanyPersonGrid()
        'Datatable neu einlesen
        myCompanyPersonGrid.read(currentCompany_ID)
        Try
            If Me.dgCompanyPerson.Rows.Count > 0 Then
                For Each dr As DataGridViewRow In Me.dgCompanyPerson.Rows
                    Select Case dr.Cells.Item("colPersonGender").Value
                        Case 0
                            dr.Cells.Item("colPersonImage").Value = _
                              My.Resources.status_online
                        Case 1
                            dr.Cells.Item("colPersonImage").Value = _
                              My.Resources.user_female
                        Case 2
                            dr.Cells.Item("colPersonImage").Value = _
                              My.Resources.user_male
                    End Select
                Next
                Me.dgCompanyPerson.Refresh()
            End If
        Catch ex As Exception
            frmError.myEx = ex
            If frmError.ShowDialog() = Windows.Forms.DialogResult.Cancel Then
                Application.Exit()
            End If
        End Try
    End Sub