Stickarm,
here you go
strSQL = "select FIeld1, FIeld2, FIeld3,Field4 from SomeTable "
strSQL = strSQL & "where FIeld1 like '%" & TheCriteria & "%' and "
strSQL = strSQL & "FIeld2 like '%" & SecondCriteria & "%' and "
strSQL = strSQL & "FIeld3 like '%" & thirdCriteria & "%' and "
strSQL = strSQL & "Field4 = WhateverCriteria "
strSQL = strSQL & " order by [SomeTable].FIeld1,[SomeTable].FIeld2, [SomeTable].FIeld3, [SomeTable].FIeld4"