Имеется следующий код:
Private sub Combo1_Click
data1.recordsource="Select ...... where ... ='" & combo1.text & "'"
data1.refresh
end sub
при этом событии вылезает окно:
Object doesn't support this property or method
как избегать это сообщение и почему оно вообще появляется?