Dim SenderFilter As Object = Starter.sql1.ExecQueryAsync("SQL", "SELECT * FROM newnames order by firstname asc", Null)
Wait For (SenderFilter) SQL_QueryComplete (Success As Boolean, rs As ResultSet)
Log(Success)
If Success Then
Do While rs.NextRow
lsUsers.AddTwoLinesAndBitmap2(rs.GetString("firstname"),rs.GetString("lastname"),BytesToImage(rs.GetBlob("usericon")),rs.GetString("username"))
Loop
rs.Close
Else
Log(LastException)
End If