SQLServer(編號：3869)

請問一下，我使用VB的SQLServer物件，想連上SERVER。
Dim sq As SQLServer

Set sq = New SQLServer
　sq.Name = "sql"
　sq.Connect (sq.Name)
卻出了
執行階段錯誤'-2147165949(8004d903)':
　[SQL Server] You must upgrade your SQL Enterprise Manager
　adn SQL-DMO(SQLOLE)to version 7.0 (SQLDMO) to connect to
　this server.
請問一下，我該如何解決。