Pues si te entendi seria algo asi (en VB2005)
Código:
Select Case combo1.SelectedIndex
Case 1
combo2.Items.Insert(indice, DataSet.Tables("Nombre de la tabla o indice").Rows("nombre de renglon o indice").Item("nombre de columna o indice").ToString)
Case 2
End Select