Dim dirRespaldo As String

Dim cn As New ADODB.Connection

CDGABRIR.Filter = "Archivos de respaldos(*.bak)|*.bak"
CDGABRIR.ShowSave

dirRespaldo = CDGABRIR.FileName
cn.Open "FICHEROS", "ADMINISTRADOR", "ADMINISTRADOR"
If dirRespaldo = "" Then
MsgBox "operacion cancelada", vbInformation, "respaldo"
Exit Sub
Else
'cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=AEG;password=AEG;Initial Catalog=FICHEROS;Data Source=LOCALHOST"
cn.Execute "backup database FICHEROS to disk= '" & dirRespaldo & "'"
MsgBox "El respaldo de la base de datos se realizo satisfactoriamente en " & dirRespaldo, , "Respaldo de base de datos"
CDGABRIR.FileName = ""
Set cn = Nothing
Exit Sub

End If
pero pones un command dialog con el nombre de cdabrir

Hola esto es una respuesta o pregunta ? :smt017 :smt023 , mira si es respuesta tb. necesito hacer un backup para un BD SQL y tb detener el Server Service Manager del SQL que se instala al lado del reloj del PC, donde coloco el código que adjuntaste???, saludos :smt006

PD: en un botón??

__________________
TAMD MYM

disculpa lo que pasa que queria publicarlo para ayudar a otros eso asi lo hago

:smt023 , Hey gracias eso esta bien, pero no tienes para que disculparte, bueno a todo esto tienes el código entero para respaldar un BD en SQL o detener el Server Service Manager, saludos desde CHILE :smt006

__________________
TAMD MYM