VERSION 5.00
Begin VB.Form frmWarengruppe 
   BorderStyle     =   3  'Fester Dialog
   Caption         =   "Warengruppe"
   ClientHeight    =   7530
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   9255
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7530
   ScaleWidth      =   9255
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'Bildschirmmitte
   Begin VB.CommandButton cmdSpeichern 
      Caption         =   "Speichern"
      Height          =   495
      Left            =   6600
      TabIndex        =   8
      Top             =   5280
      Width           =   1305
   End
   Begin VB.CommandButton cmdAbbrechen 
      Caption         =   "Abbrechen"
      Height          =   495
      Left            =   5040
      TabIndex        =   7
      Top             =   5280
      Width           =   1305
   End
   Begin VB.Frame Frame1 
      Height          =   3135
      Left            =   1320
      TabIndex        =   0
      Top             =   840
      Width           =   5415
      Begin VB.TextBox txtHauptwarengruppen 
         Appearance      =   0  '2D
         BackColor       =   &H80000011&
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   2040
         TabIndex        =   9
         Top             =   240
         Width           =   2745
      End
      Begin VB.TextBox txtWarengruppe 
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   2040
         TabIndex        =   3
         Top             =   600
         Width           =   2715
      End
      Begin VB.ComboBox ComboBonDrucker 
         Height          =   315
         Left            =   2160
         TabIndex        =   2
         Text            =   "ComboBonDrucker"
         Top             =   2280
         Width           =   2175
      End
      Begin VB.ComboBox ComboStationsDrucker 
         Height          =   315
         Left            =   2160
         TabIndex        =   1
         Text            =   "ComboStationsDrucker"
         Top             =   2640
         Width           =   2295
      End
      Begin VB.Label lblFieldLabel 
         Caption         =   "Warengruppe:"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Index           =   1
         Left            =   720
         TabIndex        =   10
         Top             =   600
         Width           =   1245
      End
      Begin VB.Label lblFieldLabel 
         Caption         =   "Hauptwarengruppe:"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Index           =   0
         Left            =   120
         TabIndex        =   6
         Top             =   240
         Width           =   1845
      End
      Begin VB.Label lblBonDrucker 
         Caption         =   "Bondrucker"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   600
         TabIndex        =   5
         Top             =   2280
         Width           =   1095
      End
      Begin VB.Label lblStationsDrucker 
         Caption         =   "Stationsdrucker"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   600
         TabIndex        =   4
         Top             =   2640
         Width           =   1455
      End
   End
End
Attribute VB_Name = "frmWarengruppe"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim VarWarengruppeBearbeiten As Boolean
'==================  FORMULAR EREIGNISSE  ===================
'============================================================
Private Sub Form_Load()
AbstandRand = MDIHauptmenu.ScaleWidth / 60

Me.Width = 0.5 * MDIHauptmenu.ScaleWidth
Me.Height = 0.4 * MDIHauptmenu.ScaleHeight
Me.Left = MDIHauptmenu.ScaleWidth / 2 - Me.Width / 2
Me.Top = MDIHauptmenu.ScaleHeight / 2 - Me.Height / 2

Me.Frame1.Top = AbstandRand
Me.Frame1.Left = AbstandRand
Me.Frame1.Width = Me.ScaleWidth - 2 * AbstandRand
Me.Frame1.Height = Me.ScaleHeight - 4 * AbstandRand

Me.lblFieldLabel.Item(0).Height = Me.Frame1.Height / 8

Me.lblFieldLabel.Item(0).Width = 0.25 * Me.Frame1.Width
Me.lblFieldLabel.Item(0).Left = Me.Frame1.Width / 2 - (3 * Me.lblFieldLabel.Item(0).Width + AbstandRand) / 2
Me.lblFieldLabel.Item(0).Top = AbstandRand

AbstandInnen = Me.Frame1.Height / 20

For I = 1 To Me.lblFieldLabel.Count - 1
 Me.lblFieldLabel.Item(I).Width = Me.lblFieldLabel.Item(I - 1).Width
 Me.lblFieldLabel.Item(I).Left = Me.lblFieldLabel.Item(I - 1).Left
 Me.lblFieldLabel.Item(I).Height = Me.lblFieldLabel.Item(I - 1).Height
 Me.lblFieldLabel.Item(I).Top = Me.lblFieldLabel.Item(I - 1).Top + Me.lblFieldLabel.Item(I - 1).Height + AbstandInnen
Next I
   
    Me.txtHauptwarengruppen.Top = Me.lblFieldLabel.Item(0).Top
    Me.txtHauptwarengruppen.Left = Me.lblFieldLabel.Item(0).Left + Me.lblFieldLabel.Item(0).Width + AbstandRand
    Me.txtHauptwarengruppen.Height = Me.lblFieldLabel.Item(0).Height
    Me.txtHauptwarengruppen.Width = 2 * Me.lblFieldLabel.Item(0).Width

   
   Me.txtWarengruppe.Top = Me.lblFieldLabel.Item(1).Top
   Me.txtWarengruppe.Left = Me.txtHauptwarengruppen.Left
   Me.txtWarengruppe.Width = Me.txtHauptwarengruppen.Width
   Me.txtWarengruppe.Height = Me.txtHauptwarengruppen.Height

  
  
   Me.cmdAbbrechen.Top = Me.Frame1.Top + Frame1.Height + 0.5 * AbstandRand
   Me.cmdAbbrechen.Left = Me.Frame1.Left + Frame1.Width - Me.cmdAbbrechen.Width
   
   Me.cmdSpeichern.Top = Me.cmdAbbrechen.Top
   Me.cmdSpeichern.Left = Me.cmdAbbrechen.Left - Me.cmdAbbrechen.Width - AbstandRand

   Me.cmdSpeichern.Width = Me.cmdAbbrechen.Width
   Me.cmdSpeichern.Height = Me.cmdAbbrechen.Height

  Me.lblBonDrucker.Left = Me.lblFieldLabel.Item(0).Left
  Me.lblBonDrucker.Width = Me.lblFieldLabel.Item(0).Width
  Me.lblBonDrucker.Top = Me.txtWarengruppe.Top + Me.txtWarengruppe.Height + 2 * AbstandRand
  Me.lblBonDrucker.Height = Me.ComboBonDrucker.Height

  Me.ComboBonDrucker.Clear
  Me.ComboBonDrucker.AddItem "Thekendrucker"
  Me.ComboBonDrucker.AddItem "Küchendrucker"
  Me.ComboBonDrucker.Text = Me.ComboBonDrucker.List(0)
  
  Me.ComboBonDrucker.Top = Me.lblBonDrucker.Top
  Me.ComboBonDrucker.Left = Me.lblBonDrucker.Left + Me.lblBonDrucker.Width + AbstandRand
  Me.ComboBonDrucker.Width = 1.5 * Me.lblBonDrucker.Width
  
  Me.lblStationsDrucker.Left = Me.lblBonDrucker.Left
  Me.lblStationsDrucker.Top = Me.lblBonDrucker.Top + Me.lblBonDrucker.Height + 0.5 * AbstandRand
  Me.lblStationsDrucker.Height = Me.lblBonDrucker.Height
  Me.lblStationsDrucker.Width = Me.lblBonDrucker.Width
  
  ComboStationsDrucker.Clear
  Call StationenAbfragen
  Me.ComboStationsDrucker.Top = Me.lblStationsDrucker.Top
  Me.ComboStationsDrucker.Left = Me.ComboBonDrucker.Left
  Me.ComboStationsDrucker.Width = 1.5 * Me.lblStationsDrucker.Width

End Sub
'=====================  COMMANDBUTTUN EREIGNISSE  ====================
'=================================================================
Private Sub cmdAbbrechen_Click()
Unload frmWarengruppe
End Sub
Private Sub CmdSpeichern_Click()

If VarWarengruppeBearbeiten = True Then
    Call Me.WarengruppeBearbeitenSpeichern
    Call ArtikelgruppeBearbeitenaendern
    
    If MsgBox("Möchten Sie die Druckereinstellungen von der Warengruppe: ''" & frmWarengruppe.txtWarengruppe.Text & "'' für alle unterbefindlichen Gerichte übernehmen", vbYesNo) = vbYes Then
        Call Me.DruckereinstellungenSpeichern
    End If
Else
    Call WarengruppeNeuSpeichern
End If

Call frmSpeisekarte.Warengruppe 'Warengruppe Aktualisieren
Call frmSpeisekarte.Artikelgruppe(Me.txtWarengruppe.Text)  'Liste Aktalisieren
Unload frmWarengruppe
End Sub
'==========================  PROEDUREN  ==========================
'=================================================================
Sub StationenAbfragen()

Dim objConn As New ADODB.Connection
Dim rsStation As New ADODB.Recordset

Set objConn = New ADODB.Connection
Set rsStation = New ADODB.Recordset

Dim strPath As String

  On Error GoTo err_Handler

  strPath = App.Path
  If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"

  Set objConn = New ADODB.Connection
  Set rsMain = New ADODB.Recordset

  With objConn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank
    .ConnectionString = "Data Source=" & VarDatenbank
    .CursorLocation = adUseClient
    .Open
  End With


  With rsStation
    .ActiveConnection = objConn
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    '.Open "Select Station from Stationen Where Drucker ='" & VarPin2 & "'"
    .Open "Select Station from Stationen Where Drucker = True "
    End With
Me.ComboStationsDrucker.AddItem "kein Drucker"
While Not rsStation.EOF
    Me.ComboStationsDrucker.AddItem rsStation.Fields("Station").Value
    rsStation.MoveNext
Wend
 Me.ComboStationsDrucker.Text = Me.ComboStationsDrucker.List(0)
 
  Set rsStation = Nothing
  Set objConn = Nothing
  
exit_Sub:
  On Error GoTo 0
  Exit Sub

err_Handler:
  MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _
            vbCritical, "Fehler"
    
  Resume exit_Sub
Set rsStation = Nothing
Set objConn = Nothing

End Sub

'---------Tabelle Warengruppegruppe Bearbeiten-------------
Sub WarengruppeBearbeitenZeigen()

VarWarengruppeBearbeiten = True

Dim rsBearbeiten As ADODB.Recordset
Dim objConn As ADODB.Connection

Set objConn = New ADODB.Connection
Set rsBearbeiten = New ADODB.Recordset


Dim strPath As String

  On Error GoTo err_Handler

  strPath = App.Path
  If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"

  Set objConn = New ADODB.Connection
  Set rsOeffnen = New ADODB.Recordset

  With objConn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank
    .ConnectionString = "Data Source=" & VarDatenbank
    .CursorLocation = adUseClient
    .Open
  End With


  With rsBearbeiten
    .ActiveConnection = objConn
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Open "Select *FROM Warengruppe WHERE WG ='" & frmSpeisekarte.TreeViewWarengruppe.SelectedItem.Text & "'"
   End With
   
   If Not rsBearbeiten.EOF Then
        frmWarengruppe.txtWarengruppe.Text = rsBearbeiten.Fields("WG").Value
        frmWarengruppe.ComboStationsDrucker = rsBearbeiten.Fields("Stationsdrucker").Value
        frmWarengruppe.ComboBonDrucker = rsBearbeiten.Fields("Bondrucker").Value
   End If
   
    
Set rsBearbeiten = Nothing
Set objConn = Nothing
exit_Sub:
  On Error GoTo 0
  Exit Sub

err_Handler:
  MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _
            vbCritical, "Fehler"
    
  Resume exit_Sub
Set rsBearbeiten = Nothing
Set objConn = Nothing
End Sub
'---------Tabelle Warengruppe NeuSpeichern-------------
Sub WarengruppeNeuSpeichern()

Dim objConn As New ADODB.Connection
Dim rsWarengruppeNeuSpeichern As New ADODB.Recordset

Set objConn = New ADODB.Connection
Set rsWarengruppeNeuSpeichern = New ADODB.Recordset

Dim strPath As String

  On Error GoTo err_Handler

  strPath = App.Path
  If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"

  With objConn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank
    .ConnectionString = "Data Source=" & VarDatenbank
    .CursorLocation = adUseClient
    .Open
  End With


  With rsWarengruppeNeuSpeichern
    .ActiveConnection = objConn
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Open "Select *FROM Warengruppe WHERE WG='" & Me.txtWarengruppe.Text & "'"
   End With
  
  If rsWarengruppeNeuSpeichern.EOF = True Then 'Wenn keine Warengruppe vorhanden
   
   If MsgBox("Möchten Sie die Warengruppe: ''" & frmWarengruppe.txtWarengruppe.Text & "'' wirklich einfügen", vbYesNo) = vbYes Then
        rsWarengruppeNeuSpeichern.AddNew
        rsWarengruppeNeuSpeichern.Fields("IDWG").Value = frmWarengruppe.txtHauptwarengruppen.Text
        rsWarengruppeNeuSpeichern.Fields("WG").Value = frmWarengruppe.txtWarengruppe.Text
        rsWarengruppeNeuSpeichern.Fields("Stationsdrucker").Value = frmWarengruppe.ComboStationsDrucker
        rsWarengruppeNeuSpeichern.Fields("Bondrucker").Value = frmWarengruppe.ComboBonDrucker
        rsWarengruppeNeuSpeichern.Update
   Else
        MsgBox "Die Warengruppe: " & frmWarengruppe.txtWarengruppe.Text & " ist bereits vorhanden"
   End If
  
  End If
  Set rsWarengruppeNeuSpeichern = Nothing
  Set objConn = Nothing
  
exit_Sub:
  On Error GoTo 0
  Exit Sub

err_Handler:
  MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _
            vbCritical, "Fehler"
    
  Resume exit_Sub
Set rsWarengruppeNeuSpeichern = Nothing
Set objConn = Nothing
End Sub

'---------Tabelle Warengruppe Bearbeitenspeichern-------------
Sub WarengruppeBearbeitenSpeichern()
  

Dim objConn As ADODB.Connection
Dim rsBearbeitenSpeichern As ADODB.Recordset

Set objConn = New ADODB.Connection
Set rsBearbeitenSpeichern = New ADODB.Recordset

Dim strPath As String

  On Error GoTo err_Handler

  strPath = App.Path
  If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"

  With objConn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank
    .ConnectionString = "Data Source=" & VarDatenbank
    .CursorLocation = adUseClient
    .Open
  End With

  
  With rsBearbeitenSpeichern
    .ActiveConnection = objConn
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Open "Select *FROM Warengruppe WHERE WG='" & frmSpeisekarte.TreeViewWarengruppe.SelectedItem.Text & "'"
   End With
  
  If Not rsBearbeitenSpeichern.EOF = True Then 'Wenn Warengruppe vorhanden eintragen im Recordset
    If MsgBox("Möchten Sie die Daten überschreiben", vbYesNo) = vbYes Then
        rsBearbeitenSpeichern.Fields("WG").Value = frmWarengruppe.txtWarengruppe.Text
        rsBearbeitenSpeichern.Fields("Stationsdrucker").Value = frmWarengruppe.ComboStationsDrucker
        rsBearbeitenSpeichern.Fields("Bondrucker").Value = frmWarengruppe.ComboBonDrucker
        rsBearbeitenSpeichern.Update
    End If
 End If
  Set rsBearbeitenSpeichern = Nothing
  Set objConn = Nothing
  
exit_Sub:
  On Error GoTo 0
  Exit Sub

err_Handler:
  MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _
            vbCritical, "Fehler"
    
  Resume exit_Sub
Set rsBearbeitenSpeichern = Nothing
Set objConn = Nothing
End Sub

Sub ArtikelgruppeBearbeitenaendern()

Dim objConn As ADODB.Connection
Dim rsaendern As ADODB.Recordset

Set objConn = New ADODB.Connection
Set rsaendern = New ADODB.Recordset
Dim strPath As String

  On Error GoTo err_Handler

  strPath = App.Path
  If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"

  Set objConn = New ADODB.Connection
  Set rsMain = New ADODB.Recordset

  With objConn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank
    .ConnectionString = "Data Source=" & VarDatenbank
    .CursorLocation = adUseClient
    .Open
  End With


  With rsaendern
    .ActiveConnection = objConn
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Open "Select *FROM Artikelgruppe WHERE WG='" & frmSpeisekarte.TreeViewWarengruppe.SelectedItem.Text & "'"
   End With
  
  While Not rsaendern.EOF 'Recordset durchlaufen
        rsaendern.Fields("WG").Value = frmWarengruppe.txtWarengruppe.Text
        rsaendern.Update
        rsaendern.MoveNext
  Wend
  
  
  Set rsaendern = Nothing
  Set objConn = Nothing
  
exit_Sub:
  On Error GoTo 0
  Exit Sub

err_Handler:
  MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _
            vbCritical, "Fehler"
    
  Resume exit_Sub
Set rsBearbeitenSpeichern = Nothing
Set objConn = Nothing
End Sub
Sub DruckereinstellungenSpeichern()

Dim objConn As New ADODB.Connection
Dim rsDruckereinstellungenSpeichern As New ADODB.Recordset

Set objConn = New ADODB.Connection
Set rsDruckereinstellungenSpeichern = New ADODB.Recordset

Dim strPath As String

  On Error GoTo err_Handler

  strPath = App.Path
  If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"

  With objConn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank
    .ConnectionString = "Data Source=" & VarDatenbank
    .CursorLocation = adUseClient
    .Open
  End With


  With rsDruckereinstellungenSpeichern
    .ActiveConnection = objConn
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Open "Select *FROM Artikelgruppe WHERE WG='" & frmWarengruppe.txtWarengruppe.Text & "'"
   End With
  
  While Not rsDruckereinstellungenSpeichern.EOF 'Recordset durchlaufen
        rsDruckereinstellungenSpeichern.Fields("Stationsdrucker").Value = frmWarengruppe.ComboStationsDrucker
        rsDruckereinstellungenSpeichern.Fields("Bondrucker").Value = frmWarengruppe.ComboBonDrucker
        rsDruckereinstellungenSpeichern.Update
  rsDruckereinstellungenSpeichern.MoveNext
  Wend

  Set rsDruckereinstellungenSpeichern = Nothing
  Set objConn = Nothing
  
exit_Sub:
  On Error GoTo 0
  Exit Sub

err_Handler:
  MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _
            vbCritical, "Fehler"
    
  Resume exit_Sub
Set rsDruckereinstellungenSpeichern = Nothing
Set objConn = Nothing
End Sub

'---------Daten Löschen in Tabelle Warengruppe-------------
Sub WarengruppeLoeschen()
Dim objConn As New ADODB.Connection
Dim rsWarengruppeLoeschen As New ADODB.Recordset

Set objConn = New ADODB.Connection
Set rsWarengruppeLoeschen = New ADODB.Recordset

Dim strPath As String

  On Error GoTo err_Handler

  strPath = App.Path
  If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"

  Set objConn = New ADODB.Connection
  Set rsWarengruppeLoeschen = New ADODB.Recordset

  With objConn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank
    .ConnectionString = "Data Source=" & VarDatenbank
    .CursorLocation = adUseClient
    .Open
  End With


  With rsWarengruppeLoeschen
    .ActiveConnection = objConn
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Open "Select *FROM Warengruppe WHERE WG ='" & frmSpeisekarte.TreeViewWarengruppe.SelectedItem.Text & "'"
  End With
  
  If rsWarengruppeLoeschen.EOF = False Then
   'Wenn Warengruppe vorhanden löschen Recordset
        rsWarengruppeLoeschen.Delete
        rsWarengruppeLoeschen.Update
  End If
  Set rsWarengruppeLoeschen = Nothing
  Set objConn = Nothing
 
exit_Sub:
  On Error GoTo 0
  Exit Sub

err_Handler:
  MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _
            vbCritical, "Fehler"
    
  Resume exit_Sub
Set rsWarengruppeLoeschen = Nothing
Set objConn = Nothing
End Sub
'---------Daten Löschen in Tabelle Artikelgruppe-------------
Sub AlleGerichteLoeschen()
Dim objConn As New ADODB.Connection
Dim rsGerichte As New ADODB.Recordset

Set objConn = New ADODB.Connection
Set rsGerichte = New ADODB.Recordset

Dim strPath As String

  On Error GoTo err_Handler

  strPath = App.Path
  If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"

 With objConn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank
    .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank
    .ConnectionString = "Data Source=" & VarDatenbank
    .CursorLocation = adUseClient
    .Open
 End With


  With rsGerichte
    .ActiveConnection = objConn
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Open "Select *FROM Artikelgruppe WHERE WG ='" & frmSpeisekarte.TreeViewWarengruppe.SelectedItem.Text & "'"
  End With
  
  While Not rsGerichte.EOF
        rsGerichte.Delete
        rsGerichte.Update
  rsGerichte.MoveNext
  Wend
        



 
  Set rsGerichte = Nothing
  Set objConn = Nothing
  
exit_Sub:
  On Error GoTo 0
  Exit Sub

err_Handler:
  MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _
            vbCritical, "Fehler"
    
  Resume exit_Sub
Set rsGerichte = Nothing
Set objConn = Nothing
End Sub

Sub AllesLoeschen()
 If MsgBox("Mit der Warengruppe: ''" & frmSpeisekarte.TreeViewWarengruppe.SelectedItem.Text & "'' werden alle darin enthaltenen Artikel gelöscht." & _
 " Möchten Sie trotzdem alles löschen", vbYesNo) = vbYes Then
Call Me.WarengruppeLoeschen
Call Me.AlleGerichteLoeschen
End If

End Sub