Dim frm As New FMSENDUNGEN
        frm = FMSENDUNGEN.Instance

Dim frm As FMSENDUNGEN = FMSENDUNGEN.Instance

 
Public WriteOnly Property SendungsNummer as String
  Set
    SetzeSendungsNummer( SendungsNummer )
  End Set
End Property
 
Private Sub SetzeSendungsNummer( SendungsNummer as String )
 SelectCmd.Parameters("SENDUNGNR").Value = SendungsNummer
 Da.Fill(VWFEIDAL_SENDUNGEN)
End Sub