كيف اجعل الكمبو بوكس يتحدث بعد الاضافة من نموذج اخر

السلام عليكــم ورحمـة الله وبركاتــه ،،

في حدث الاضافة تقوم بمسح

Me.Combo1.Clear

ومن ثم تقوم بالقراة مرة ثانية من الجدول الذي تريد اخذ الاسماء من حيث سيكون الكود كالتالي

Me.Combo1.Clear
rs.Open "[t1]", db, adOpenDynamic, adLockBatchOptimistic
rs.MoveFirst
Dim i As Integer
For i = 0 To rs.RecordCount - 1
Combo1.AddItem rs![name1]
rs.MoveNext
Next i