How to code this kind of code?

[TA]

Dear all expert,
I have a piece of code like this:
If (rs.Fields("sitetype").Value = 2 _
And (rs.Fields("sitenum").Value <> "310" Or _
rs.Fields("sitenum").Value <> "320" Or _
rs.Fields("sitenum").Value <> "330" Or _
rs.Fields("sitenum").Value <> "340" Or _
rs.Fields("sitenum").Value <> "350" Or _
rs.Fields("sitenum").Value <> "351" Or _
rs.Fields("sitenum").Value <> "400" Or _
rs.Fields("sitenum").Value <> "405" Or _
rs.Fields("sitenum").Value <> "410" Or _
rs.Fields("sitenum").Value <> "415")) Then
' Do something here
End if
How can I write this with sort code then?
Thank you inadvange.
TA

 

[Marshall Barton]

I have a piece of code like this:
If (rs.Fields("sitetype").Value = 2 _
And (rs.Fields("sitenum").Value <> "310" Or _
rs.Fields("sitenum").Value <> "320" Or _
rs.Fields("sitenum").Value <> "330" Or _
rs.Fields("sitenum").Value <> "340" Or _
rs.Fields("sitenum").Value <> "350" Or _
rs.Fields("sitenum").Value <> "351" Or _
rs.Fields("sitenum").Value <> "400" Or _
rs.Fields("sitenum").Value <> "405" Or _
rs.Fields("sitenum").Value <> "410" Or _
rs.Fields("sitenum").Value <> "415")) Then
' Do something here
End if

That conditional expression is always true regardless of the
value of the fields. I think you want to use AND instead of
OR.

You might find it a little easier to Select Case instead of
If:

If (rs.Fields("sitetype").Value = 2 Then
Select Case rs.Fields("sitenum").Value
Case "310","320","330","340","350","351", . . .
' whatever
Case Else
' Do something here
End Select
End if