restaurar bd sql2000 desde vb6

alguien me puede ayudar por favor...
miren el problema es el siguiente:
estoy desarrollando un programilla de ferreteria.. y lo que falta es
el manejo de la base de datos osea.. que el usuario pueda generar
copias de seguridad y restaurarlas..
los estoy manejando por medio de un procedimiento almacenado.. algo
asi:
____________________________________________________________________

CREATE PROCEDURE SysBdBR
@Ruta nvarchar(180),
@Nombre nvarchar(180),
@Cond int
AS
if @Cond=1 -- copia de seguridad
begin
BACKUP DATABASE Mibd
TO DISK = @Ruta
WITH FORMAT,
NAME = @Nombre
end
if @Cond=2 -- restaurar
begin
RESTORE DATABASE Mibd
FROM DISK=@Ruta
end
__________________________________________________________________________

Ahora bien en la copia de seguridad no ay problema el problema es
cuando intento restaurar..
me sale esl siguiente error: este error me sale en vb6..

[Microsof][ODBD SQL Server Driver][Server Driver]No se pudo obtener
acceso exclusivo porque la base de datos esta en uso.

ahora nose como restauro.. sin antes no usar la bd... porque tengo que
hacer mension a la bd que quiero restaurar no?

e intentado desde vb algo asi:
____________________________________

Dim Ad As ADODB.Recordset
Set Ad = New ADODB.Recordset
Ad.Open "RESTORE DATABASE Mibd FROM DISK='" & Text1.Text & "'", Cnn,
adOpenKeyset, adLockOptimistic
__________________________________

y me sale el mismo error...
si alguien me puede ayudar se los agradeceria bastante