Private pCore As AppCore.Core
 
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
      pCore = New AppCore.Core
      pCore.Load()
 
      DataGridView1.DataSource = pCore
      DataGridView1.DataMember = "MeineListe"
   End Sub

      Using frm As New frmEntry
         frm.DataSource = AppCoreBindingSource
 
         If frm.ShowDialog = Windows.Forms.DialogResult.OK Then
            ' hier was machen, oder auch nicht..
         End If
      End Using

   Private Sub frmEntry_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
      tbTitle.DataBindings.Add("Text", pDataSource, "MeineListe")
   End Sub