لدى 2 combo
اختر المحافظة
اختر المنطقة
عند اختيار المحافظة من الكومبوا 1 يظهر ما تحتوى هذه المحافظة فى المنطقة
d.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False" r.Open "select distinct city from location where country =combo1 ", d, adOpenDynamic, adLockBatchOptimistic r.MoveFirst While Not r.EOF Combo1.AddItem r!city r.MoveNext Wend r.Close Set r = Nothing d.Close Set d = Nothing Combo1.ListIndex = 0