Public Sub BefehlanDatenbankSenden(ByVal ConString As String, ByVal Query As _
  String)
        'Sendet einen Befehl an die Datenbank, gedacht für UPDATE etc. 
        ' Statements
        'Default Verbindungsoptionen
        If ConString = "Default" Then
            ConString = myConnect
        End If
 
        conn = New OleDbConnection(ConString)
        cmd = New OleDbCommand(Query, conn)
 
        Try
            If conn.State = ConnectionState.Closed Then
                conn.Open()
            End If
 
            cmd.ExecuteNonQuery() 'Befehl gegen die Datenbank schicken
 
            conn.Close()
            cmd = Nothing
            conn = Nothing
 
            'DB Exception
        Catch ex As OleDbException
            Throw New Exception("Es ist ein Problem bei der Verbindung zur" & _
              "Datenbank aufgetreten! " & vbCrLf & "im Modul: " & ex.Source & _
              "Der Fehler lautet wie folgt: " & ex.Message)
 
            'allgemeinste Exception
        Catch ex As Exception
            Throw New Exception("Es ist ein Fehler aufgetreten. " & ex.Source & _
              vbCrLf & "Fehlermeldung: " & ex.Message)
 
        End Try
    End Sub