Visual Basic - PROBLEMAS AL USAR RESTORE DATABASE DESDE VB6

ALGUIEN ,E PUEDE AYUDAR A DARLE SOLUCIÓN A MI PROBLEMA, QUE ES EL SIGUIENTE : TRABAJO CON VB6, Y DEBO RESTAURAR UNA BD EN SQL SERVER Y EL PROCESO ES EL SIGUIENTE:
PRIMERO AL CARGAR UN FORMULARIO HAGO LA CONEXIÓN ASÍ:

Private Sub Form1_Load()
Private DB As ADODB.Connection
...
Set DB = New Connection
DB.CursorLocation = adUseClient
DB.Open "Provider=SQLOLEDB.1;Password=MiPassword;Persist Security Info=True;User ID=MiUsuario;Initial Catalog=FarmaCoop;Data Source=MiServidor"
...
End Sub

LUEGO EN ALGÚN LUGAR DEL CÓDIGO PARA RESTAURAR LA BD HAGO:
DB.Execute "RESTORE DATABASE MiBase FROM DISK='C:\MiBase.bak' "
PERO ME APARECE EL SIG MENSAJE:
no se puede tener acceso esclusivo a la base de datos, porque la base de datos esta en uso

YA VERIFIQUÉ EL MANUAL QUE VIENE CON SQLSERVER 2000 Y ME DICE QUE DEBO UTILIZAR ALGO COMO:
DB.Execute "ALTER DATABASE MiBase SET SINGLE_USER"

PERO ME DICE QUE EL USUARIO NO TIENE PERMISO PARA MODIFICAR LA BD, YA ASIGNÉ PERMISOS Y NADA, DÍGANME QUÉ PUEDO HACER!!!!!

GRACIAS....

¿La BD qué quieres restaurar tiene el mismo nombre qué la qué te has conectado, es decir FarmaCoop?

Si es así debes borrarla primero y luego restaurarla. La borras con: DROP DATABASE <NombreBase>