Dim su As StringUtils 'stringutils lib checked
MyList = su.LoadCSV2(File.dirassets, filename, ";", Header) 'header and MyList are lists
strQuery=$"CREATE TABLE IF NOT EXISTS data ( ${Header.Get(0)} INTEGER PRIMARY KEY, ${Header.Get(1)} TEXT, ${Header.Get(2)} TEXT, ${Header.Get(3)} REAL, ${Header.Get(4)} REAL) "$
SQL.ExecNonQuery(strQuery)