Public Function QuickDataTable(ByVal Query As String, ByVal nameOfDataTable _
     As String) As DataTable
            Dim m_dt As DataTable
            conn = New OleDbConnection(myConnect)
            cmd = New OleDbCommand(Query, conn)
            daAllgemein = New OleDbDataAdapter(cmd)
            m_dt = New DataTable
            m_ConnectionÖffnen()
            daAllgemein.Fill(m_dt, nameOfDataTable)
            conn.Close()
        Return m_dt
    End Function