I am using Visual Basic 6. I have a class which is set to provide data
service and a datagrid. Any time I load the form which contains the datagrid,
the data do not show up. Let me share my code with you, if there is any
missing part please share it with me.

Code about the class

Private Sub Class_Initialize()

DataMembers.Add "Family"
DataMembers.Add "Study"
DataMembers.Add "Langage"
DataMembers.Add "Experie"
DataMembers.Add "Others"
DataMembers.Add "Debt"
DataMembers.Add "Onadebt"
...

Private Sub Class_GetDataMember(DataMember As String, Data As Object)
If alternate_datamember "" Then
DataMember = alternate_datamember
End If
alternate_datamember = ""
Select Case DataMember
Case "Family"
Set Data = rsFamily
Case "Study"
Set Data = rsStudy
Case "Experie"
Set Data = rsExperie
Case "Langage"
Set Data = rsParler
Case "Others"
Set Data = rsOthers
Case "Debt"
Set Data = rsDebt
Case "Onadebt"
Set Data = rsOnadebt
Case Else
Set Data = rsSource
End Select
End Sub

CODE about Form
Private Sub Form_Load()
' Add item to combo1 from source

Set staff = New Clemploye

DataGrid1.DataMember = "Family"
Set DataGrid1.DataSource = staff

DataGrid2.DataMember = "Study"
Set DataGrid2.DataSource = staff

DataGrid3.DataMember = "Experie"
Set DataGrid3.DataSource = staff

DataGrid4.DataMember = "Others"
Set DataGrid4.DataSource = staff

DataGrid5.DataMember = "Parler"
Set DataGrid5.DataSource = staff

DataGrid6.DataMember = "Debt"
Set DataGrid6.DataSource = staff

DataGrid7.DataMember = "Onadebt"
Set DataGrid7.DataSource = staff

End Sub

Archived from group: microsoft>public>vb>ole