SQL2000备份数据库如何强制覆盖已存在文件

Question

FileExist = Fso.FileExists(BaseName)
  If FileExist = True Then
     Response = MsgBox("指定文件已经存在，是否覆盖？", vbOKCancel, "确认覆盖")
     If Response = vbOK Then
         Kill BaseName  '加上这句
         Conn.Execute "backup database water to disk='" & BaseName & "'"
     Else
        Exit Sub
     End If

Answer 1

"backup database water to disk='" & basename & "' with init,skip,name='water Backup Data'"