If Not lnIndex = 0 Then
lsSQL = lsSQL & " OR "
End If
lsSQL = lsSQL & "(" & Join(asFieldAry, " LIKE '%" & lsKeyword & "%' OR ")
& " LIKE '%" & lsKeyword & "%')"
Next
lsSQL = lsSQL & ")"
End If
If Not lsSQL = "" Then lsSQL = "(" & lsSQL & ")"
buildQuery = lsSQL
End Function
'---------------------------------------
' ----------------------------------------
'
%>
lsSQL = lsSQL & " OR "
End If
lsSQL = lsSQL & "(" & Join(asFieldAry, " LIKE '%" & lsKeyword & "%' OR ")
& " LIKE '%" & lsKeyword & "%')"
Next
lsSQL = lsSQL & ")"
End If
If Not lsSQL = "" Then lsSQL = "(" & lsSQL & ")"
buildQuery = lsSQL
End Function
'---------------------------------------
' ----------------------------------------
'
%>