مشکل اين خط چيه؟

[Tifon_vb]

Private Sub txtnd_Change()
datarets.RecordSource = "Select * From rets Where nd Like '" & txtnd.Text & "'"
Set DBGrid1.DataSource = datarets
================================================== =====
اين تکه برنامه براي فيلتر کردن ديتاگريد است (در اين پرو ژه به جاي ado ازdao استفا ده شده
خط سوم قرمز رنگ خطاي 430 رو ميده
================================================== =====
Run-Time Error '430'
Class does not support Automation or does not support expected interface

[kama2222]

ابتدا چک کن ببین datagrid را در قسمت properties به dao وصل کردی یا نه.

[Tifon_vb]

ابتدا چک کن ببین datagrid را در قسمت properties به dao وصل کردی یا نه.
بله dbgrid به dao متصل هست و اطلاعات رو نمايش ميده
فقط موقع فيلتر کردن اين خطا پيش مياد