Error In My Code During Restoring With SMO

hello,

I need to archive a database and restore it on the same server but under a different databasename.
I first backup the database using SMO, now i want to restore it with the code below:

[code]

Private Sub RestoreDataBase(ByVal BackupFilePath As String, ByVal destinationDatabaseName As String, ByVal DatabaseFolder As String, ByVal DatabaseFileName As String, ByVal DatabaseLogFileName As String)


Dim myServer As New Server(My.Settings.SQLServer)

Dim myRestore As New Restore()

myRestore.Database = destinationDatabaseName

Dim currentDb As Database = myServer.Databases(destinationDatabaseName)

If currentDb IsNot Nothing Then


myServer.KillAllProcesses(destinationDatabaseName)

End If

myRestore.Devices.AddDevice(BackupFilePath, DeviceType.File)

Dim DataFileLocation As String = DatabaseFolder + "" + destinationDatabaseName + ".mdf"

Dim LogFileLocation As String = DatabaseFolder + "" + destinationDatabaseName + "_log.ldf"




myRestore.RelocateFiles.Add(New RelocateFile(DatabaseFileName, DataFileLocation))

myRestore.RelocateFiles.Add(New RelocateFile(DatabaseLogFileName, LogFileLocation))




myRestore.ReplaceDatabase = True




myRestore.PercentCompleteNotification = 7

AddHandler myRestore.PercentComplete, AddressOf PercentReturn

Try


myRestore.SqlRestore(myServer)

currentDb = myServer.Databases(destinationDatabaseName)

currentDb.SetOnline()

Catch ex As Exception


If ex.InnerException IsNot Nothing Then


MessageBox.Show(ex.Message & vbCrLf & ex.InnerException.Message, "Ex + InnerEx", MessageBoxButtons.OK, MessageBoxIcon.Error)

Else


MessageBox.Show(ex.Message, "Ex", MessageBoxButtons.OK, MessageBoxIcon.Error)

End If

End Try

End Sub
[/code]


When the program reaches the red line, he throws the following error:

Restore failed for Server 'NB_DELL_JWOSQLEXPRESS'.

System.Data.SqlClient.SqlError: Logical file 'TMP_MIXix_20080129.' is not part of database 'TMP_MIXix_20080129.'. Use RESTORE FILELISTONLY to list the logical file names.


The originale databasename is MIXix and I take a complete backup of it using the code below (WORKS):
[code]

Sub BackupDB(ByVal Filename As String)


Dim srv As New Server(My.Settings.SQLServer)

Dim bk As New Backup

Dim bdi As New BackupDeviceItem(Filename, DeviceType.File)




bk.Action = BackupActionType.Database

bk.BackupSetDescription = "Full backup of " & My.Settings.Catalog

bk.BackupSetName = My.Settings.Catalog & " backup"

bk.Database = My.Settings.Catalog




bk.Devices.Add(bdi)

bk.Incremental = False

bk.ExpirationDate = Now.Date

bk.LogTruncation = BackupTruncateLogType.Truncate

AddHandler bk.PercentComplete, AddressOf PercentReturn

bk.SqlBackup(srv)

bk.Devices.Remove(bdi)




bk = Nothing

srv = Nothing

GC.Collect()

End Sub
[/code]



Does anyone have an idea what I can do about it?

Friendly regards