codice:
strInsert = "Select codicecliente from progetti where codiceAssociazione=" & codAssociazione & ""
   Set RecSet = ConnAccess.Execute(strInsert)

If NOT RecSet.EOF Then
MsgBox ("Attenzione, questa associazione ha già inviato la domanda per il bando")
end if