coding - VBA

 Sub SetFilter()     Dim LSQL  As String          LSQL = "select * from tbl_not_data_010_notlar"     LSQL = LSQL & " where madde = '" & cboShowCat & "'"          Form_frm_not_data_010_notlar.RecordSource = LSQL      End Sub