关于一个类的问题


VB:下面的这个类写的有什么问题呀。为什么一运行就出错呀，这可是msdn中的源程序
**************************************************************
Option Explicit
Private WithEvents rsNames As ADODB.RecordsetPrivate Sub Class_GetDataMember(ByVal DataMember As String, Data As Object)
Set Data = rsNames
End SubPrivate Sub Class_Initialize()
' 将新的数据成员的名称添加到 DataMember 集合
' 这使其它对象可以看见这些可用的 DataMembers
DataMembers.Add "Names"Set rsNames = New ADODB.Recordset ' 设置对象变量。' 创建一个具有两个字段的 recordset，并打开该 recordset。
' 第一个记录具有一个整数的数据类型，第二个记录是一个最大可
' 达 256 个字符的字符串。CursorType 被设置为 OpenStatic
' -- 一个可更新的对一组记录的快照。LockType 被设置为
' LockOptimistic，以允许对该 recordset 进行更新。
With rsNames
.Fields.Append "ID", adInteger
.Fields.Append "Name", adBSTR, 255
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open
End WithDim i As Integer
For i = 1 To 10 ' 添加十条记录。
rsNames.AddNew
rsNames!Id = i
rsNames!Name = "Name " & i
rsNames.Update
Next i
rsNames.MoveFirst ' 移到该记录集的开始。
End Sub