ProgressDialogShow2("please wait..",False)
Dim SenderFilter As Object = connection.mysql.ExecQueryAsync("SQL", "SELECT * FROM products", Null)
Wait For (SenderFilter) SQL_QueryComplete (Success As Boolean, rs As JdbcResultSet)
If Success Then
Log("success")
Do While rs.NextRow
clv.Add(CreateItem(clv.AsView.Width,rs.GetString("product_name"),Null,rs.GetString("price"),"title2",Null,"price2"),"")
Loop
rs.Close
ProgressDialogHide
Else
Log(LastException)
End If