[Resolvido] Como evitar duplicidade de cadastro (access/Excel)

E ai galera, blz?
Seguinte, preciso de um "contador" de dados, esse contador deve ter uma condição "if", dizendo que: Se for igual ou maior que 1, deve parar o cadastro e informar em uma msgbox que ja existe um registro com este ID (tIDACAO). E caso o contador seja ZERO, seguir o cadastro normalmente.

Alguem sabe me ajudar? ja tentei o DCount, mas não funcionou.
Os campos que quero usar são:
Tabela: PLANO
Campo tab: IDACAO
Textbox: tIDACAO

Uso Forms em VBA com banco Access. abaixo o codigo de cadastro da sql.

Private Sub cmdNOVO_Click()

'-----------------------------------------------------------------------------------------------

' CRIA UM NOVO CADASTRO

'-----------------------------------------------------------------------------------------------



Dim nConectar As New ClasseConexao

Dim banco As ADODB.Recordset

Dim sql As String

     Set banco = New ADODB.Recordset

      

     sql = " INSERT INTO PLANO( IDACAO, dOportunidade, dAcao, dObjetivo, dResultado  )"

     sql = sql & " VALUES ( "

     sql = sql & " '" & Me.tIDACAO.Text & "', "

     sql = sql & " '" & Me.tOportunidade.Text & "', "

     sql = sql & " '" & Me.tAcao.Text & "', "

     sql = sql & " '" & Me.tObjetivo.Text & "', "

     sql = sql & " '" & Me.tResultado.Text & "' ) "

     'CONECTAR AO BANCO DE DADOS

     nConectar.Conectar

     'EXECUTAR A SQL

     On Error Resume Next

     banco.Open sql, nConectar.Conn

    

     'CONFIRMAÇÃO DE REGISTRO

     MsgBox "Plano de Ação: " & Me.tIDACAO.Text & " Cadastrado.", vbInformation, "CADASTRO"

     'DESCONECTAR PARA LIBERAR MEMÓRIA

     nConectar.Desconectar

     Me.tIDACAO = Empty

     Me.tOportunidade = Empty

     Me.tAcao = Empty

     Me.tObjetivo = Empty

     Me.tResultado = Empty

     Me.tIDACAO.SetFocus ' FOCO NA TEXTBOX NOME



End Sub