由于我们要操作数据库，要使用到ADO，因此我们要引用Microsoft Activex Data Object 2.5 Library.(如下图)
　　
　　现在我们开始写组件中的方法
　　
　　1、 OpenDB方法
　　
　　　　OpenDB方法的思路是建立与MS SQL SERVER7.0的连接，这可以使用SQLOLEDB Provider来实现。建立连接后就可以创建一个包含所有CD信息的记录集。根据以上分析我们写出如下代码。
　　
　　Option Explicit
　　
　　Private Conn As ADODB.Connection
　　
　　Private RecordSetCD As ADODB.Recordset
　　
　　’打开连接和结果集
　　
　　Private Sub OpenDB()
　　
　　Set Conn = New ADODB.Connection
　　
　　Set RecordSetCD = New ADODB.Recordset
　　
　　Conn.Open "Provider=SQLOLEDB;DataSource=MUSE;Initial Catalog=Music;UserId=Wayne;Password=AbCdEfG"
　　
　　RecordSetCD.Open "SELECT * FROM CD", Conn
　　
　　End Sub
　　
　　2、 CloseDB方法
　　
　　　　由于连接数据库是相当昂贵的，所以在不需要使用数据库时，一定要记住关闭Recordset 和Connection对象，CloseDB就是完成这一操作。
　　
　　Private Sub CloseDB()
　　
　　’关闭结果集RecordSetCD
　　
　　If Not (RecordSetCD Is Nothing) Then
　　
　　If RecordSetCD.State = adStateOpen Then
　　
　　RecordSetCD.Close
　　
　　End If
　　
　　Set RecordSetCD = Nothing
　　
　　End If
　　
　　’关闭连接Conn
　　
　　If Not (Conn Is Nothing) Then
　　
　　Conn.Close
　　
　　Set Conn = Nothing
　　
　　End If
　　
　　End Sub