Ciao axsw,
così controlli se nome e cognome, e ecc. .. , sono presenti nel DB:
codice:
' Controlla che il professionista ed il progetto NON sia inserito già nel BD:
        RSTctr.Source = "SELECT Nome, Cognome, NomeFile FROM TblAnagraficaPROF WHERE Nome='" & FrmAnagProf.TxtPr1.Text & "' And Cognome='" & FrmAnagProf.TxtPr2.Text & "' And  NomeFile= '" & NomeNF & "'"
        RSTctr.Open , Cns1
        
        ' Il Professionista è presente nel DB, esce dalla routine:
        If RSTctr.EOF = False And RSTctr.BOF = False Then
            MsgBox "Il professionista: " & FrmAnagProf.TxtPr1.Text & " " & FrmAnagProf.TxtPr2.Text & " che ha redatto il ....... " & NomeNF & Chr(13) _
            & "è già registrato nel database.", vbInformation + vbOKOnly, " ........... "
        End If