Ho modificato la classe in questo modo, ma non riesco ad agganciare nessun componente.


codice:
Option Explicit
Private rs As ADODB.Recordset

Private Sub Class_GetDataMember(DataMember As String, Data As Object)
Set Data = rs
End Sub

Private Sub Class_Initialize()
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "rs.db", , adOpenKeyset, adLockBatchOptimistic, adCmdFile
DataMemberChanged = ""
End Sub