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
        'DIESE TABLEADAPTER WIRD FÜR MSG-BOX GEBRAUCHT
        Me.EmployeesTableAdapter.Fill(Me.NorthwindDataSet.Employees)
        EmployeesBindingSource = 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 ZEIGT MESSAGE IMMER INDEX 1, DIE BINDINGSOURCE WURDE ALSO 
        ' WOHL NICHT ERKANNT
        Dim drv As DataRowView = CType(EmployeesBindingSource.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.
        'OHNE DIESER ZEILE STEHT KEIN SATZ ZUR AUSWAHL; 
        Me.EmployeesTableAdapter.Fill(Me.NorthwindDataSet.Employees)
        'Dim datagridview1 As New BindingSource 'OHNE DIESE ZEILE GIBT EINE _
          FEHLERMELDUNG BEI DATAGRIDVEIW1
        'DIESE HAST DU IN DEINEM BEISPIEL GEHABT, 
        'datagridview1.DataSource = Form1.EmployeesBindingSource
        initDone = True
 
    End Sub
 
    'WENN HIER DATAGRIDVIEW1 STEHT GIBTS FEHLERMELDUNG
    Private Sub EmployeesDataGridView_CelldoubleClick(ByVal sender As _
      System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) _
      Handles EmployeesDataGridView.CellDoubleClick
        'UND HIER IST DER INDEXWERT RICHTIG IST ALLERDING 
        ' "EMPLOYEESBINDINGSOURCE" UND NICHT "....-1"
        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