If HttpUtils.IsSuccess(FileUrl) Then
Dim database As InputStream
database=HttpUtils.GetInputStream(FileUrl)
Dim out As OutputStream
out = File.OpenOutput(File.DirDefaultExternal,"WINE_TABLET.DB",False)
Main.sql_main.Close
File.Copy2(HttpUtils.GetInputStream(FileUrl), out)
out.Close
ToastMessageShow("Database Download Complete", True)
End If