Access - CmdAñadir_Click

Hola,

Tengo un pequeño problema con el siguiente código:

Private Sub CmdAñadir_Click()

If Not Me.NewRecord Then
DoCmd.RunCommand acCmdRecordsGoToNew
End If

If Not IsNull(Me!TxtTipo) Then
tipo = Me!TxtTipo
Me!TxtTipo = ""
End If

DoCmd.RunCommand acCmdRefresh

End Sub

Al declarar el campo "tipo" sin duplicados cuando meto un registro ya existente y pincho en CmdAñadir el formulario se muere! (me marca error en: DoCmd.RunCommand acCmdRefresh)

He intentado lo siguiente:

On error goto Duplicando

Duplicando:
Msgbox ("Ya existe")

y tampoco funciona, ya que el Msgbox me sale siempre (haya error o no)

Una ayudita por favor!?

FYI ... solución =

Private Sub CmdAñadir_Click()

If Not IsNull(DLookup("[tipo]", "tbl_direcciones_tipo", "[tipo] ='" & Me!TxtTipo & "'")) Then
MsgBox ("Error al salvar los datos. Registro duplicado.")
End If

If Not IsNull(Me!TxtTipo) Then
tipo = Me!TxtTipo
Me!TxtTipo = ""
DoCmd.RunCommand acCmdRefresh
End If

If Not Me.NewRecord Then
DoCmd.RunCommand acCmdRecordsGoToNew
End If

End Sub