Ho fatto le correzioni ma non funziona adesso mi dice che l'oggetto è già aperto
quindi il database
L'errore è quì
codice:
' 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