كود استراجاع قاعدة البيانات أين الخطأ؟ SQL SERVER

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

هذا الكود لاسترجاع قاعدة البيانات قمت بإنشاء جملة اتصال خاصة به بالإضافة إلى إغلاق جميع جمل الاتصال مع قاعدة البيانات 

الكود لا يعطي أي خطأ ولكن لا يقوم باسترجاع البيانات 

Sub restore_db()
        Dim con As New SqlConnection("Data Source=HP;Database=Master;integrated security=SSPI;")
        con.Open()
        Dim filename As String
        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 WITH ROLLBACK IMMEDIATE"
        Dim cmd As SqlCommand
        cmd = New SqlCommand(strQuary, con)
        cmd.ExecuteNonQuery()
        con.Close()
    End Sub