I have two combo boxes in my form, One is called as CompanyID, another ZoneID.
On event LostFoucus wiht CompanyID combo box I write VB code like this :

Private Sub Company_ID_LostFocus()

Me!ZoneID.RowSource = "SELECT [ZoneID] FROM [device]"

With Me!ZoneID
.RowSource = "SELECT ZoneID FROM deveice"
.RowSourceType = "Table/Query"
.ListRows = 5
End With

End Sub

But whenever CompanyID combo box lost focus a err message box shows up
on screen it say Run-time error '438' : Object doesn't support this property
or method.

Who can help me this ?

Thanks in advance !!!

jsl

[This message has been edited by JSL (edited 12-13-2000).]

[This message has been edited by JSL (edited 12-13-2000).]