dim sql,i, r
set sql=CreateObject("SqLite2X.SqLiteConnection")
sql.ConnectToDb("c:\testdb.db")
'for i=0 to 10000
'sql.ExecSqlStatement("insert into x(a,b) values(" & i & ",'ax" & i & "')" )
'next
'sql.ExecSqlStatement("create table x(a,b)")
'sql.ExecSqlStatement("select * from x" )

set r = sql.ExecSqlQuery("select a,b, 'a;c' as sss, datetime('now') from x where a=111" )

'msgbox typeName(r)
msgbox r.GetCSV(false)