Filter subform based on combobox on main form

[Krs13]

I need to filter the subform based on the combobox(Unbound) in the main form. After filtering i need to add some values. Below is the code i put in after update of combobox but i get error 424.



Client_info is table name
id is field name
cboid is combobox name in mainform
client_info_sub is subform name

Private Sub cboid_AfterUpdate()
Dim LSQL As String

LSQL = "select * from Client_Info"
LSQL = LSQL & " where ID = '" & cboId & "'"

Form_Client_Info_sub.RecordSource = LSQL
End sub

Can anybody help on this pls.

[pbaldy]

What is error 424? If the ID field is numeric, try

LSQL = LSQL & " where ID = " & cboId