Sub Connect As ResumableSub
Dim testfolder As String = rpnew.GetSafeDirDefaultExternal("test")
Dim ip As String=File.ReadString(testfolder,"dip.txt")
Dim jdbcUrlold As String = "jdbc:jtds:sqlserver://"
Dim jdbcurlnew As String=jdbcUrlold&ip&"/mydb"
mysql.InitializeAsync("mysql", driver, jdbcurlnew, Username, Password)
Wait For MySQL_Ready (Success As Boolean)
If Success = False Then
Log("Check unfiltered logs for JDBC errors.")
End If
Return Success
End Sub