Public Class Form1
 
    Public Shared CustomersBindingSource1 As BindingSource
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Me.CustomersTableAdapter.Fill(Me.Nwind2000DataSet.Customers)
        CustomersBindingSource1 = New BindingSource(Me.Nwind2000DataSet, _
          "Customers")
 
    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()
 
        Dim drv As DataRowView = CType(CustomersBindingSource1.Current, _
          DataRowView)
 
        ' Irgendetwas mit dem ausgewählten Satz machen
        MsgBox("DataRow ID = " & drv("CustomerID").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
        DataGridView1.DataSource = Form1.CustomersBindingSource1
        initDone = True
    End Sub
 
    Private Sub DataGridView1_SelectionChanged(ByVal sender As Object, ByVal e _
      As System.EventArgs) Handles DataGridView1.SelectionChanged
        If initDone Then
            Me.Close()
        End If
    End Sub
 
End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist