vb'de birden fazla lisbox kullanımı

[hyilmaz076]

Herkese selam
formda 2 adet listbox kullanmam gerekiyor, (listbox1 ve listbox2), listbox1=firmaadı... listbox2=çalışma yılları... şeklinde düzenlemek istiyorum.. listbox1'e db'den verileri okutup alabiliyorum bu getirdiğim verilerden herhangi birine tıklandığında yine aynı table içerisinde bulunan sene1,sene2,sene3 gibi field ları listbox2'ye getirmesini ve alt alta sıralamasını istiyorum.

listbox1
ABC LTD.ÞTİ 'ne tıklanırsa listbox2 aşağıdaki şekli alsın

listbox2
2000
2001
2002

bunu istememdeki sebep şu, listbox2'de bulunan yıllara göre örneğin 2002.mdb diye bir database var tıklandığında anamenü açılması ve 2002.mdb'nin çalıştırılmasını istiyorum
yardımcı olursanız çok sevinirim.

aşağıyada şimdiye kadar ki kısma kadar olan yani listbox1'e veri alımına kadar ki kısmı anlatan kodlarımı yazdım...

Private Sub Form_Load()
Timer1.Enabled = True
Data
Firmabul
End Sub

Private Sub Data()
Set dbfirma = OpenDatabase(App.Path & "\data\firma.mdb")
Set rsfirma = dbfirma.OpenRecordset("select * from Firmakart")
End Sub

Private Sub Firmabul()

rsfirma.MoveFirst
Do Until rsfirma.EOF
List1.AddItem rsfirma.Fields("Firmakod").Value & " " & rsfirma.Fields("firma").Value
rsfirma.MoveNext
Loop
End Sub