Sub LoadProject
...
Dim sq As SQL = Main.Pool.GetConnecton
'execute async query
sq.ExecQueryAsync("LoadProject", s, Null)
End Sub
Sub LoadProject_QueryComplete (Success As Boolean, Crsr As ResultSet)
Dim sq As SQL = Sender
if success then
do while crsr.nextrow
'loop through the results
loop
crsr.close
end if
sq.Close 'return the connection to the pool
End Sub