SellOut, is this a VBA question?
If yes, You could create a string, using a looping structure.
Dim Qry as QueryDef, SQL As String, x As Integer
SQL = "SELECT * FROM WHERE "
For x = 1 To 30
SQL = SQL & "Field" & x & " <> Chr(34) & OK & Chr(34) & " OR "
Next x
SQL = Left(SQL, Len(SQL) - 4)
Set Qry = CurrentDb.CreateQueryDef("QueryName")
Qry.SQL = SQL
Qry.Close
RefreshDatabaseWindow
...not sure, if this is what you're asking?
Either way, good luck!