主题：数据库还原问题

Dim dlg As New OpenFileDialog
dlg.Filter = "数据库备份|*.BAK"
dlg.InitialDirectory = SpecialFolder.MyDocuments
dlg.MultiSelect = False

If dlg.ShowDialog = DialogResult.OK Then
    Dim cmd As New SQLCommand
    cmd.ConnectionName = connName
    cmd.CommandText = "RESTORE DATABASE pxbSys FROM DISK = '" & dlg.FileName & "'"
    cmd.ExecuteNonQuery()
    StatusBar.Message1 = "数据库还原成功"
End If
执行后，出错，提示：数据库正在使用，所以未能获得对数据库的排它访问权