Private Sub frage_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim f As Telefonbuch = Me.Parent
        Label1.Text = "Es wurden bereits Datensätze aus der Datei *" + _
          f.Dateiname + "* in der Datenbank gefunden! Wie möchten Sie weiter" & _
          "vorgehen?"
    End Sub