Dim rp As RuntimePermissions
If rp.Check(rp.PERMISSION_WRITE_EXTERNAL_STORAGE) = True Then
If File.Exists(File.DirDefaultExternal, "MyDatabase.db") Then
File.Copy(File.DirDefaultExternal,"MyDatabase.db",File.DirInternal,"MyDatabase.db")
End If
End If