[vb6] classe data source

[Beziel]

Sto cercando di creare una classe data source in modo da usare il binding di ado, ma non riesco ad associarla ai vari controlli del for ecco il listato mi dite dove sbaglio?!?

 Option Explicit
Private rs As ADODB.Recordset

Sub principale()
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open App.Path & "\rs.db", , adOpenKeyset, adLockBatchOptimistic, adCmdFile
DataMemberChanged = ""
End Sub

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