Public Sub Calldatabase As ResumableSub
Dim Data As List
Data.Initialize
Wait For (CallSub(Starter,"Connect")) Complete (Success As Boolean)
Dim sf As Object = Starter.mysql.ExecQueryAsync("mysql", "SELECT * FROM WORK", Null)
Wait For (sf) mysql_QueryComplete (Success As Boolean, Crsr As JdbcResultSet)
Do While Crsr.NextRow
Dim row(2) As Object
Dim idst As String = Crsr.GetString("ID")
row(0) = idst
Log(idst)
Dim idst As String = Crsr.GetString("ID_CON")
row(1) = idst
Data.Add(row)
Loop
Crsr.Close
Datagridview.SetData(Data)
End Sub