Listv.Clear
Try
Dim sf As Object = Starter.mysql.ExecQueryAsync("mysql", "MY-SQL-STRING", Null)
Wait For (sf) mysql_QueryComplete (Success As Boolean, Crsr As JdbcResultSet)
If Success Then
Do While Crsr.NextRow
'Log(Crsr.GetString("Name"))
Listv_fyrirtaki.Add(CreateListItemVerktakar(Crsr.GetString("Name"), Listv_fyrirtaki.AsView.Width, 60dip), Crsr.GetString("Name"))
Loop
Crsr.Close
End If
Catch
Success = False
Log(LastException)
End Try