مشكلة في استرجاع "Restore" قاعدة البيانات SQL Server & VB.NET

السلام عليكم ورحمة الله وبركاته 

عند القيام بعملية استرجاع Restore لقاعدة البيانات فأن الكود يعمل بشكل صحيح ويعطي رسالة أنه تم استرجاع قاعدة البيانات ولكن عند فتح قاعدة البيانات أجد أنها لم يتم استرجعها فما هو الخطأ لدي ؟

Private Sub restore_Click(sender As Object, e As EventArgs) Handles restore.Click
        Try
            Dim filename As String
            SQLcon.Open()
            Dim strQuary As String
            Dim objdlg As New OpenFileDialog
            objdlg.FileName = "service_station"
            objdlg.Filter = "SQL Server database backup files|*.bak"
            objdlg.ShowDialog()
            filename = objdlg.FileName
            strQuary = "ALTER DATABASE service_station set SINGLE_USER WITH ROLLBACK IMMEDIATE"
            strQuary = "RESTORE DATABASE service_station FROM disk='" & filename & "' WITH REPLACE,RECOVERY "
            strQuary = "ALTER DATABASE service_station SET MULTI_USER"
            Dim cmd As SqlCommand
            cmd = New SqlCommand(strQuary, SQLcon)
            cmd.ExecuteNonQuery()
            SQLcon.Close()
            MessageBox.Show("تم استرجاع قاعدة البيانات بنجاح", "نجحت العملية", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)
  
        Catch ex As Exception
  
            SQLcon.Close()
            MsgBox(ex.Message)
  
        End Try
    End Sub