Sub Connect As ResumableSub
MSQL.InitializeAsync("mssql", driver, jdbcUrl, Username, Password)
TimeoutImpl(8, "mssql_Ready")
Wait For mssql_Ready (Success As Boolean)
Return Success
End Sub
Sub TimeoutImpl(Duration As Int, EventName As String)
Do While Duration > 0
Sleep(1000)
Duration = Duration - 1
Loop
CallSubDelayed2(Me, EventName, False)
End Sub