1) get rid of the if conditional you currently have, so the code looks like:

Do While Not .EOF

Debug.Print !ModelNumber; !MaxPressure; MaxSize
'fill a List Box with acceptable items
List1.AddItem !ModelNumber & " " & !MaxPressure _ & " " & MaxXize
End If
.MoveNext

Loop

2) change the SQL statement to be:

strSQL = " SELECT ModelNumber, MaxPressure, MaxSize FROM tblPressureData WHERE MaxPressure >=" & CLng(form.txtPressureIn) & " and MaxTemp >="
& CLng(form.txtTempIn) & " and MaxSize >=" &
CLng(form.txtSizeIn) & " ORDER BY MaxPressure"

[This message has been edited by JHausmann (edited 11-02-1999).]