Su load del form popoli la prima lista con la select dei valori principali (Frutta, Verdura, Carne)
Poi su evento click della lista fai una seconda select per popolare la seconda lista, select che ovviamente dipenderà dal valore selezionato es.
codice:
Private Sub ListGruppo_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListGruppo.Load
Dim objCmd As New SqlCommand("SELECT DISTINCT gruppo FROM DOC ORDER BY GRUPPO", ObjCnn)
'...
'istruzioni per popolare la ListGruppo
'...
End Sub
codice:
Private Sub ListGruppo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListGruppo.Click
Dim objCmd2 As New SqlCommand("SELECT tipo FROM DOC WHERE gruppo='" & ListGruppo.SelectedItem & "' ORDER BY tipo", ObjCnn)
'...
'istruzioni per popolare la ListTipo
'...
End Sub