Salvare un nome in un database evitando di duplicarlo

[axsw]

Ho fatto le correzioni ma non funziona adesso mi dice che l'oggetto è già aperto
quindi il database
L'errore è quì

' Controlla che il professionista ed il progetto NON sia inserito già nel BD:
        Rs.Source = "SELECT Nome, FROM Clienti WHERE Nome='" & FrmMain.txtnome.Text   & "'"
        
        ' Il Professionista è presente nel DB, esce dalla routine:
        If Rs.EOF = False And Rs.BOF = False Then
            MsgBox "Il professionista: " & FrmMain.txtnome.Text & " " & FrmMain.txtnome.Text & Chr(13) _
            & "è già registrato nel database.", vbInformation + vbOKOnly, " ........... "
        End If

[LMondi]

Quindi il Rs è già impegnato in un'altra operazione, alla fine della quale Non l'hai chiuso.
'Chiude e cancella il recordSet:
Set Rs = Nothing
Rs.Close