Public Function QuickDataTable(ByVal Query As String) As DataTable
        'führt eine beliebige Abfrage aus und liefert einen DataTable zurück, 
        ' Übergabeparameter ist die SQL Query
        Try
            conn = New OleDbConnection(myConnect)
            cmd = New OleDbCommand(Query, conn)
            daAllgemein = New OleDbDataAdapter(cmd)
            m_ds = New DataSet
            m_ds.Clear() 'DataSet löschen
            'Verbindung öffnen
            m_ConnectionÖffnen()
            daAllgemein.Fill(m_ds, "tblAllgemein")
            conn.Close()
            m_dtAllgemein = m_ds.Tables.Item("tblAllgemein")
 
        Catch ex As OleDbException
            Throw New Exception("Es ist ein Fehler bei der Verbindung zur DB" & _
              "aufgetreten im Modul: " & ex.Source & "Der Fehler lautet wie" & _
              "folgt: " & ex.Message)
            Exit Function
        Catch ex As Exception
            Throw New Exception(ex.Message)
        End Try
 
        Return m_dtAllgemein
    End Function