Dim flgFields As Boolean
 
Select Case RS.fields(1)
  Case 12, 15, 18, 20 ' usw. ...
    flgFields = True
  Case Else
    flgFields = False
End Select
 
If Abfrage1 = "xyz.." And flgFields = True Then
  ' ...
End If

Gruss,

Zardoz