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