Public Class Form1
    Public Shared employeesBindingSource1 As BindingSource
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.EmployeesTableAdapter.Fill(Me.NorthwindDataSet.Employees)
        employeesBindingSource1 = New BindingSource(Me.NorthwindDataSet, _
          "employees")
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim f2 As New Form2
        f2.ShowDialog()
        f2.Dispose()
        'UND HIER NICHT MEHR IMMER INDEX 1
        Dim drv As DataRowView = CType(employeesBindingSource1.Current, _
          DataRowView)
        MsgBox("DataRow ID = " & drv("employeeID").ToString())
 
    End Sub
End Class

Public Class Form2
    Private initDone As Boolean
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle 
        ' "NorthwindDataSet.Employees". Sie können sie bei Bedarf verschieben 
        ' oder entfernen.
        Me.EmployeesTableAdapter.Fill(Me.NorthwindDataSet.Employees)
        Dim datagridview1 As New DataGridView
        datagridview1.DataSource = Form1.employeesBindingSource1
        initDone = True
 
    End Sub
 
 
    Private Sub EmployeesDataGridView_CelldoubleClick(ByVal sender As _
      System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) _
      Handles EmployeesDataGridView.CellDoubleClick
        'HIER WERDEN die ROW'S richtig übergeben
        'Dim drv As DataRowView = CType(employeesBindingSource.Current, 
        ' DataRowView)
        'MsgBox("DataRow ID = " & drv("employeeID").ToString())
 
        If initDone Then
            Me.Close()
        End If
    End Sub
 
End Class