مشكلة بال داتا كمبو

Private Sub Command1_Click()

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Test.mdb"

Adodc1.CommandType = adCmdTable

Adodc1.RecordSource = "Room"

Adodc1.Refresh

MsgBox "Record Count Before Filter " & Adodc1.Recordset.RecordCount

Adodc1.Recordset.Filter = "Name=101"

MsgBox "Record Count After Filter " & Adodc1.Recordset.RecordCount

Set DataCombo1.RowSource = Adodc1

DataCombo1.BoundColumn = "ID"

DataCombo1.ListField = "Name"

End Sub

لماذا المعلومات الموجودة في الكمبو لا تتغير مع اني اعمل فلتر لل أدو

مع العلم اني مضطر للعمل على هذا الاساس ما الحل ؟؟؟؟

test.zip