Salvare un nome in un database evitando di duplicarlo

[axsw]

Erore= Errore di compilazione Variabile non definita
Io la connessione la apro così:
In un Modulo

Option Explicit

Public Cn As New ADODB.Connection
Public Rs As New ADODB.Recordset

Sub connetti()
   With Cn
      .ConnectionString = "Provider = Microsoft.Jet.OleDB.4.0;" & _
                          "Data source=" & App.Path & "\Fatture.mdb"
                          'nella prima riga si specifica il provider
                          'nella seconda il percorso al db
      .ConnectionTimeout = 5 'numero dei secondi di timeout
      .CursorLocation = adUseClient 'tipo di cursore
      .Mode = adModeShareDenyNone 'nessuna limitazione
      .Open 'apertura ricordarsi di chiuderla
   End With
   With Rs
      .ActiveConnection = Cn ' imposta a che connessione si riferisce
      .LockType = adLockOptimistic ' imposta il tipo di lock
   End With
End Sub

Poi nell'vento load del Form

Private Sub Form_Load()
   Call connetti
    Rs.Open "SELECT * FROM Clienti"

Infine la procedura Salva

' Controlla che il professionista ed il progetto NON sia inserito già nel BD:
 --errore-->  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

Ciao e grazie per la tua pazienza