QtSql problem

[tworoses1@gmail.com]

I'm trying to do some basic stuff with QtSql (a part of QtAda) but I
just can't figure it out.

      declare
         Query : constant Qt4.Sql_Queries.Q_Sql_Query
           := Qt4.Sql_Queries.Create (DB);
      begin

         Query.Exec (Qt4.Strings.From_Utf_16
                   ("create table images (id tinyint primary key, "
                      & "filename varchar(20))"));
         Query.Exec (Qt4.Strings.From_Utf_16
                   ("insert into images values(1, 'hello.jpg')"));

         Query.Exec(Qt4.Strings.From_Utf_16
                 ("select * from images"));

         while (Query.Next) loop
            Filename := Query.Value(0).To_String;
         end loop;

      end;

Compiles fine but crashes with:

raised PROGRAM_ERROR : EXCEPTION_ACCESS_VIOLATION
[2009-02-06 15:37:27] process exited with status1 (elapsed time:
00.59s)

Any ideas?

Thanks,
Claire.