请教如何在Vb中实现对Sql的数据备份！

Question

sql server 7种的备份方法
If cn.State = adStateOpen Then cn.Close
    cn.ConnectionTimeout = 10
    connstr = "Driver={SQL Server};Server=" & LocalServer & ";UID=" & LocalUser & ";PWD=" & LocalPw & ";DATABASE=" & LocalDb
    cn.Open connstr
Nowtime = Format(Now, "hh-mm-ss")
dd = Str(Date)
riqi = dd + "-" + NowtimeSQL = "BACKUP DATABASE tablename TO disk='D:\mssql7\BACKUP\tablename" & riqi & "' with noinit"
cn.Execute (SQL)http://www.dapha.net/有原代码执行SQL命令"BACKUP DATABASE [数据库名] TO DISK='带路径文件名'"      即可备份"RESTORE DATABASE [数据库名] FROM DISK ='带路径文件名'"  可恢复数据dim objsvr as new sqldmo.sqlserver
dim objbak as new sqldmo.backupobjsvr.connect %server%,%login%,%pwd"
with objbak
    .database=%databasename%
    .files=%filesname%
    .sqlbackup
end withset objdatabase=nothing
set objsvr=nothing