CopyDBFromAssets is surely not the correct method to make a backup. This method checks if the target db exists and if not it copies the packed db, from the assets folder.
Dim DBFileDir As String
DBFileDir = File.DirInternal
Dim backupdir As String
backupdir = Starter.shared
Dim DBFileName As String
DBFileName = "SWSU.db"
Dim DBFileBackup As String
DBFileBackup = "SWSUBACK.bak"
File.Copy(DBFileDir, DBFileName, backupdir, DBFileBackup)