Rifaccio... (ho incasinato un po' le quote)
codice:
Private Sub DBCombo1_Click(Area As Integer)
   Dim strFam1    As String
   strFam1 = DBCombo1.Text
   Adodc2.RecordSource = "Select * from [tabella] where Famiglia2='" & strFam1 & "'"
   Adodc2.Refresh
End Sub
dove:
-DBCombo1 e' il combo che contiene la Famiglia1
-Adodc2 e' la datacontrol che "gestisce" il DBCombo2 della Famiglia2
-[tabella] e' il nome della tabella che contiene i dati nel tuo DB.

...e con questo cosa volevo dire:
NON LO SO! MA HO RAGIONE E I FATTI..... MI COSANO!..
Ciao.