VB.netで完全バックアップされたDBのリストア

Question

掲題の通りでVB.netでSQLServerのテーブルのリストアを行いたく存じます。
下記の様に記述したのですが、「System.Data.SqlClient.SqlException: 'ユーザー自身のプロセスを強制終了するために KILL は使用できません。'」とエラーが出力されてしまい悩んでおります。
エラー内容を見れば一目瞭然なのですが、ユーザー自身のプロセスとSQLのプロセスは異なるのでしょうか？異なるのであれば回避方法をご教授いただきたく存じます。

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_fullReStore.Click
        ' SQLサーバ(localhost)のマスタDB(master)に接続する
        Dim _con As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection
        _con.ConnectionString = "Server=○○Server; "Database=〇〇DB;" "User ID=○○;" & "Password=○○;"
        _con.Open()

        ' テストDB(TEST)をリストア(復元)(C:\Temp\TEST.bak)するSQL作成
        Dim sql As String ="RESTORE DATABASE 〇〇DB FROM DISK = 'C:\格納場所';"
        Dim sqlCommand As New System.Data.SqlClient.SqlCommand(sql, _con)
        Dim adapter As New System.Data.SqlClient.SqlDataAdapter(sqlCommand)

        ' リストア(復元)SQLはDB接続しているセッションが存在すると失敗するので、事前に全てのDB接続を切断して置くする必要がある。'
        Kill_User(_con)

        ' リストア(復元)開始
        Dim dt As New DataTable
        adapter.Fill(dt)

        ' リストア(復元)SQLの解放
        adapter.Dispose()
        sqlCommand.Dispose()

        ' SQLサーバ(localhost)のマスタDB(master)から切断する
        _con.Close()

    Private Sub Kill_User(ByVal _con As System.Data.SqlClient.SqlConnection)
        ' 全てのDB接続セッション取得SQL作成
        Dim sql As String = "SELECT spid FROM master..sysprocesses,master..sysdatabases WHERE master..sysprocesses.dbid = master..sysdatabases.dbid AND name = '○○DB';"
        Dim sqlCommand As New System.Data.SqlClient.SqlCommand(sql, _con)
        Dim adapter As New System.Data.SqlClient.SqlDataAdapter(sqlCommand)

        ' 全てのDB接続セッション取得
        Dim dt As New DataTable
        adapter.Fill(dt)

        ' 全てのDB接続セッション取得SQLの解放
        adapter.Dispose()
        sqlCommand.Dispose()

        For i As Integer = 0 To dt.Rows.Count - 1
            ' 個々のDB接続セッションを強制切断SQL作成
            Dim sql2 As String = "KILL " & dt.Rows(i)(0)
            Dim sqlCommand2 As New System.Data.SqlClient.SqlCommand(sql2, _con)
            Dim adapter2 As New System.Data.SqlClient.SqlDataAdapter(sqlCommand2)

            ' 個々のDB接続セッションを強制切断
            Dim dt2 As New DataTable
            adapter2.Fill(dt2)

            ' 個々のDB接続セッションを強制切断SQLの解放
            adapter2.Dispose()
            sqlCommand2.Dispose()
        Next
    End Sub

皆様のお知恵を拝借いたしたく存じます。
よろしくお願いいたします。

Comments

[KOZ6.0]

全てのDB接続セッション取得SQL のとこで spid = @@SPID を除けばよいのでは？

[KOZ6.0]

こんなのありました
https://www.ipentec.com/document/sql-server-close-all-database-connection

[YAmaGNZ]

SSMSの復元で得られるSQLじゃダメなんですかね？
オプションを適切に設定したらシングルユーザー→リストア→マルチユーザーってSQLが吐かれますけど

[YAmaGNZ]

また、RESTOREを実行するのにadapter.Fillを使うべきではないと思います。
SqlCommand.ExecuteNonQuery メソッド(https://docs.microsoft.com/ja-jp/dotnet/api/system.data.sqlclient.sqlcommand.executenonquery?view=netframework-4.8)なりを使うべきかと思います。

[su_ho]

KOZ6.0様：ありがとうございます。
確かにDBの接続を全て閉じるをすれば同様のことが出来そうです。
ご教授いただいたものを参考にさせていただきます。

YAmaGNZ様：ありがとうございます
adapter.Fillは使ってはいけないのですね。
ご教授いただいたものを参考にさせていただきます。