資料庫備份的問題(編號：8228)

請問　我現在有30多個資料庫(SQL SERVER 7.0)需要備份, 在ＶＢ裡怎麼下指令, 我是是要存到磁帶上, 以下是我的程式:

For I = LBound(DB_Name) To UBound(DB_Name)
SQL = "backup database " & DB_Name(I) & " to Back_DataBase with NOUNLOAD"