由於我們要操作數據庫，要使用到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
