Try
            Dim oOFD As New OpenFileDialog
 
            With oOFD
                'Filter (alle Dateien)
                .Filter = "alle Dateien (*.*)|*.*"
 
                'Anfangspfad Arbeitsplatz
                .InitialDirectory = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
 
                'Mehrfachauswahl zulassen
                .Multiselect = True
 
                'Dialog aufrufen
                If .ShowDialog = Windows.Forms.DialogResult.OK Then
 
                    'Datatable instanzieren
                    m_oTableFilme = New DataTable("Filminfos")
 
                    'Spalten hinzufügen für Filmtitel, Genre, Filmgrösse, 
                    ' Dateityp, Pfad
                    Dim oColFilmtitel As New DataColumn
                    oColFilmtitel.ColumnName = "Filmtitel"
                    m_oTableFilme.Columns.Add(oColFilmtitel)
 
                    Dim oColGenre As New DataColumn
                    oColGenre.ColumnName = "Genre"
                    m_oTableFilme.Columns.Add(oColGenre)
 
                    Dim oColFilmgroesse As New DataColumn
                    oColFilmgroesse.ColumnName = "Grösse"
                    m_oTableFilme.Columns.Add(oColFilmgroesse)
 
                    Dim oColDateityp As New DataColumn()
                    oColDateityp.ColumnName = "Dateityp"
                    m_oTableFilme.Columns.Add(oColDateityp)
 
                    Dim oColPfad As New DataColumn
                    oColPfad.ColumnName = "Pfad"
                    m_oTableFilme.Columns.Add(oColPfad)
 
                    'Pfadvariable
                    Dim sPfad As String
                    Dim oDataRow As DataRow
 
                    'Dateipfade und Namen in DataTable speichern
                    For i = 1 To .SafeFileNames.Count
                        'Neue Row zum DataTable hinzufügen
                        oDataRow = Nothing
 
                        oDataRow = m_oTableFilme.NewRow()
 
                        'Dateiname herausfinden und in DataRow schreiben
                        'oDataRow.Item(1) = .SafeFileNames(i - 1)
                        oDataRow.Item(1) = "Filmtitel"
 
 
                        'Dateipfad herausfinden und in Datatable schreiben
                        sPfad = .FileName
 
                        'ggf. abschließenden Backslash entfernen
                        If sPfad.EndsWith("\") And sPfad.Length > 3 Then
                            sPfad = sPfad.Substring(0, sPfad.Length - 1)
                        End If
 
                        'Dateipfad in Datatable schreiben
                        'oDataRow.Item(4) = sPfad
                        oDataRow.Item(4) = "Pfaaaad"
 
                        'DataRow dem Datatable hinzufügen
                        m_oTableFilme.Rows.Add(oDataRow)
                    Next
                    'Datatable in Grid laden
                    grdDatagrid.DataSource = m_oTableFilme
 
                End If
            End With
        Catch ex As Exception
            MessageBox.Show("Es ist ein Fehler aufgetreten. Bitte wenden Sie" & _
              "sich an das Entwicklerteam dieser Software, falls der Fehler" & _
              "erneut" & _
                            " auftreten sollte.", "Fehler", _
                            MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try