Sub accountprocess (d As String) As ResumableSub
If IsConnectedToInternet= True Then
Dim SQLQry As String = "DELETE FROM Balances"
B4XPages.MainPage.SQL.ExecNonQuery(SQLQry)
DATA
Else
xui.MsgboxAsync("Error Connecting to the Server Please Check Your Internet Connection Or Load Mbs","Server Error")
't1.Enabled = False
Return "Check Your Internet Connection"
End If
End Sub