用VB备份MSSQL2005数据库,提示超时已过期是什么有关问题啊

用VB备份MSSQL2005数据库,提示超时已过期是什么问题啊?

Dim DB As String

Dim conn As New adodb.Connection

Dim rec As New adodb.Recordset

Dim backupfilename As String 

Dim b As String

backupfilename = "d:\db\twaaa.bak"

DB = "Driver={SQL Server};Server=127.0.0.1;Database=MYdb;uid=sa;pwd=123456;"

conn.Open DB 

b = "backup database MYdb to disk='" & backupfilename & "'"

conn.Execute (b)

conn.Close

备份的语句没错我直接在查询管理器可以正常备份。
------解决方案--------------------
不是已经提示超时了嘛，你改下超时时间不就行了：
conn.CommandTimeout = 3600000
------解决方案--------------------
conn.CommandTimeout = 0