Try with SQL-DMO

Local oServer As SQLDMO.SqlServer
oServer = Createobject('SQLDMO.SqlServer')

oServer.LoginSecure = .T.
oServer.Connect()

oBackup = CreateObject('SQLDMO.Backup')
With oBackup
.Database = "Northwind"
.Files = '[C:\kup]'
.Initialize = .T.
.BackupSetName = "MiBackup"
.BackupSetDescription = "Descripción"
.SQLBackup(oServer)
Endwith

oServer.DisConnect()
Release oServer