vb备份本地SQL,有时能连接有时不能连接

代码如下：有时能成功备份有时不能，提示：运行时错误'-2147467259(80004005)'SQL server 不存在或拒绝访问    A = Trim$(Str$(Year(Date))) & Trim$(Str$(Month(Date))) & Trim$(Str$(Day(Date))) & Trim$(Str$(Hour(Time))) & Trim$(Str$(Minute(Time)))
      Dim Rs_Qx3 As New ADODB.Connection
      Dim cm As New ADODB.Command
      Dim Rs As New ADODB.Recordset
      Rs_Qx3.Open "Provider=SQLOLEDB;Data Source=127.0.0.1;uid=sa;pwd=003;database=northwind"
      Rs.CursorLocation = adUseClient
      cm.ActiveConnection = Cn
    cm.CommandText = "sp_dropdevice '数据备份'"
    cm.Execute
    cm.CommandText = "exec   sp_addumpdevice   'disk','数据备份','D:\Mssql7\backup\" & A & "'"
    cm.Execute
    cm.CommandText = "backup   database   tl_wsy   to     数据备份"
    cm.Execute
    Rs_Qx3.Close
    MsgBox "本次数据备分成功！", vbInformation + vbOKOnly, "系统提示"