sqldmo 的问题

Public Sub Start_server(ByVal svrName As String) 
　　On Error GoTo errHwnd 
　　Dim svr As SQLDMO.sqlServer 
　　Set svr = New SQLDMO.sqlServer 
　　svr.Start False, "(local)" 
　　svr.Close 
　　Set svr = Nothing 
　　Exit Sub 
errHwnd: 
MsgBox Err.Number & vbCrLf & Err.Description, vbExclamation, "错误" 
End Sub 

在 svr.Start False, "(local)" 这行出现错误，提示： 
-2147023836 
[SQL-DMO]服务控制错误；指定的服务未安装。 

在配置为XP、VB6.0、SQLSEVER2000下运行正常，在配置为Vista、VB6.0、SQLSEVER2003下运行就出现这种错误，请问，该如何解决。