Sapere se esiste un determinato campo in un recordset

[optime]

dopo aver aperto il recordset, puoi ottenere l'elenco dei nomi cosi':

bTrovato = False
For i = 0 To Rs.Fields.Count-1
   If nomedacontrollare = Rs(i).Name Then
      bTrovato = True
      Exit For
   End If
End If

If bTrovato Then ....