现在VB6.0已经和SQL连接了，但是使用查询功能时无法做到任意条件查询，网上的情况和我的也不太相符，请问该如何实现呢？

如图希望能在查询时输入任意条件都能有对应内容显示，现在只能做到输入产品名称进行查询，输入其他例如客户名等条件无法查询

Dim SQL as String
SQL="select * from link where 1=1"
if name<>"" then SQL=SQL+" and name='"+name+"'"
if no<>"" then SQL=SQL+" and no='"+no+"'"
if prdno<>"" then SQL=SQL+" and prdno='"+prdno+"'"
‘……
Adodc1.RecordSource= SQL
’……