Dim frm As New frmAddEdit_Room_Anl
 
        If frm.Init_Form(0, m_LfdNr_Room, cmb_Gewerke.SelectedID) AndAlso _
           frm.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Init_Liste()
        End If
 
        frm.Dispose()
        frm = Nothing

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnSave.Click
        If Not Saveable() Then Return
 
        If m_LfdNr_Room_Anl = 0 Then
            InsertData()
        Else
            UpdateData()
        End If
 
        Me.DialogResult = Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub