Visual Basic - UNA DE MENUS

¡¡Hola amigos!!
Necesito cargar un submenú en tiempo de ejecución con la siguientes características:

Productos (Opción principal en tiempo de diseño)
....Fruta (Tiempo de diseño)
........ (Cargo distintas frutas desde una tabla de Access)
............ (¡¡Aquí está el problema!! las variedades de cada fruta)

Sólamente se cargan las variedades de la primera fruta, el resto de frutas no ofrece esa posibildad.

¿Álguien sabe decirme cómo hacerlo?
Gracias.

¿Con qué lo cargas? si es con API's de Windows tienes que utilizar una pila, es decir primero cargar todos los hijos y finalmente una vez que tiene todo agregar el padre.

Hola Cecilia, gracias por tu interés: los cargo a partir de 2 RecordSet:

Set RSFruta = DB.OpenRecordset("Frutas", dbOpenSnapshot)
If RSFruta.RecordCount > 0 Then

RSFruta.MoveFirst
MenuListaFrutas(0).Caption = UCase(RSFruta![NomFruta])
Set RSVariedad = DB.OpenRecordset("SELECT NomVariedad FROM Variedades Where NomFruta= '" _
& MenuListaFrutas(0).Caption & "'")
If RSVariedad.RecordCount > 0 Then
RsVariedad.MoveFirst
MenuVariedades(0).Caption = UCase(RsV![NomVariedad])
RsVariedad.MoveNext
End If
RSFruta.MoveNext

For indicemenus = 1 To (RSFruta.RecordCount - 1)
Load MenuListaFrutas(indicemenus)
MenuListaFrutas(indicemenus).Caption = UCase(RSFruta![NomFruta])
Set RsVariedad = DB.OpenRecordset("SELECT NomVariedad FROM Variedades Where NomFruta= '" _
& MenuListaFrutas(indicemenus).Caption & "'")
If RsVariedad.RecordCount > 0 Then
RsVariedad.MoveFirst
MenuVariedades(0).Caption = UCase(RsVariedad![NomVariedad])
For Menus2 = 1 To (RsVariedad.RecordCount - 1)
Load MenuVariedades(Menus2)
MenuVariedades(Menus2).Caption = UCase(RsVariedad![NomVariedad])
RsVariedad.MoveNext
Next Menus2
End If
RSFruta.MoveNext
Next indicemenus

End If