Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
Me.AlleTableAdapter.Fill(Me.KontaktverwaltungDataSet.Alle)
 End Sub

Private Sub ButtonSuchen_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles ButtonSuchen.Click
AlleBindingSource.Filter = "Name LIKE '%" + TextBoxNamen.Text + "%'"
            End Sub

Private Sub ButtonDrucken_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles ButtonDrucken.Click
        Form3.Show()
    End Sub

Public Class Form3
 
    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.AlleTableAdapter.Fill(Me.KontaktverwaltungDataSet.Alle)
 End Class