Visual Basic - DBList no visualiza datos

Hola amigos:

Tengo un ComboBox....

Private Sub cbo_Camps_Click()
dbl_Contingut.ListField = cbo_Camps.Text
End Sub

que me saca los titulos de columnas de una tabla, y cuando haces click en el titulo de columna solicitado tiene que mostrar el contenido de todos los registros relacionados con esa columna en cuestion.....

Private Sub dbl_Contingut_DblClick()
frm_Filtro.Ado_Esplai.RecordSource = "SELECT * FROM Activitats WHERE " & cbo_Camps.Text & "='" & dbl_Contingut.Text & "'"
frm_Activitats.Ado_Esplai.Refresh
Unload frm_Filtro
End Sub

...pero no me visualiza el contenido. No entiendo que pasa?¿?

Private Sub Form_Activate()
For i = 0 To Ado_Esplai.Recordset.Fields.Count - 1
cbo_Camps.AddItem Ado_Esplai.Recordset.Fields(i).Name
Next i
cbo_Camps.Text = cbo_Camps.List(0)
dbl_Contingut.ListField = cbo_Camps.Text
End Sub

Me podriais ayudar por favor, estoy muy pillado con esto. Gracias