'************************************************************************
'Backup DB Trades
'************************************************************************
Provider = "Provider=SQLOLEDB.1;"
Security = "Integrated Security=SSPI;Persist Security Info=False;"
DBName = "Initial Catalog=Trades;"
ServerName = "Data Source=ODMIN-ПК\SQLEXPRESS"
Cnct = Provider & Security & DBName & ServerName

set DB = CreateObject("ADODB.Connection")
DB.Open Cnct
set SQLCom = CreateObject("ADODB.Command")
FPath = "с:\buz\TradesSQL\"
FName = "Trades_" & Year(Now) & "_" & month(now) & "_" & day (now) & "_h" & hour (now) & "_m" & minute(now) & ".bak"
With SQLCom
    .ActiveConnection = DB
    .CommandText = "dbo.p_MakeBackup"
    .CommandType = 4 'adCmdStoredProc
    .NamedParameters = True
    .Parameters.Append .CreateParameter("@fpath", 200, 1, 200, FPath) 'adVarChar=200, adParamInput=1
    .Parameters.Append .CreateParameter("@fname", 200, 1, 200, FName)
    .Execute
End With
MsgBox "Backup Done"