Private Sub dgvKunde_CellValidating1(sender As Object, e As _
  DataGridViewCellValidatingEventArgs) Handles dgvKunde.CellValidating

If dgvStammdaten.CurrentCell.ColumnIndex = _
  DataSet1.Kunde.EingabepfadColumn.Ordinal Then
            Dim Eingabepfad As String = ""
            Dim openFileDialogEingabepfad As New OpenFileDialog()
            With openFileDialogEingabepfad
                .InitialDirectory = "C:\"
                .RestoreDirectory = True
                .Multiselect = False
            End With
            If openFileDialogEingabepfad.ShowDialog() = _
              System.Windows.Forms.DialogResult.OK Then
                Eingabepfad = openFileDialogEingabepfad.FileName
            End If
            Dim BsEingabepfad = DirectCast(DirectCast( _
              KundeBindingSource.Current, DataRowView).Row, DtStammdatenRow)
            BsEingabepfad.Eingabepfad = Eingabepfad
            'MessageBox.Show(Eingabepfad)