Private Sub ToolStrip_Zeige_Sendung_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ToolStrip_Zeige_Sendung.Click
        'Zu öffnendes Formular
        Dim frm As New FMSENDUNGEN
        frm = FMSENDUNGEN.Instance
        frm.MdiParent = FMSTART
        frm.Show()
        'hier wird die anzuzeigende Sendung an das Select Command des 
        ' Datenadapters übergeben
        frm.SelectVWSENDUNGEN_FEIDAL.Parameters("SENDUNGNR").Value = _
          Me.SENDUNGNR()
        frm.DAVWSENDUNGEN_FEIDAL.Fill(Me.DSFEIDAL.VWFEIDAL_SENDUNGEN)
    End Sub