L.Mondi non funge cmq quando esguo la procedura la connessione è già aperta
eccoti il codice forse devi spiegarmi cos'è "RSTctr "
codice:
' Controlla che il professionista ed il progetto NON sia inserito già nel BD:
        RSTctr.Source = "SELECT Nome, NomeFile FROM Clienti WHERE Nome='" & FrmMain.txtnome.Text & "'"
        
        ' Il Professionista è presente nel DB, esce dalla routine:
        If RSTctr.EOF = False And RSTctr.BOF = False Then
            MsgBox "Il professionista: " & FrmMain.txtnome.Text & " " & FrmMain.txtnome.Text & Chr(13) _
            & "è già registrato nel database.", vbInformation + vbOKOnly, " ........... "
        End If
Comunque grazie