[Resolvido] Funções tratar erro.

Boa noite,

adicionarUsuario.asp

<!-- #include file="cUsuario.asp" -->
<!-- #include file="fucoes.asp" -->
<%

Dim clsUsuario
Set clsUsuario = New cUsuario

clsUsuario.PrimeiroNome = Request.Form("pNome")
clsUsuario.SobreNome = Request.Form("sNome")
clsUsuario.DataDeNasc = Request.Form("mes") & "/" & Request.Form("dia") & "/" & Request.Form("ano")
clsUsuario.Sexo = Request.Form("sexo")
clsUsuario.Email = Request.Form("email")
clsUsuario.Senha = Request.Form("senha")
clsUsuario.Gravar

%>
cUsuario.asp

Public Function Gravar()
If Me.ID < 1 Then
Dim arr1, arr2
arr1 = Array("primeiroNome", "sobreNome", "dataDeNasc", "sexo", "email", "senha")
arr2 = Array(Me.PrimeiroNome, Me.SobreNome, Me.DataDeNasc, Me.Sexo, Me.Email, Me.Senha)
Inserir "usuarios", "usuarioID", arr1, arr2
End if
End Function
funcoes.asp

Function Inserir(Tabela, Campo, Colunas, Valores)
Dim strSQL

Set rstRet = Server.CreateObject ("ADODB.Recordset")

ObjConn.BeginTrans
rstRet.Open Tabela, ObjConn, 1, 3, 2

rstRet.AddNew Colunas, Valores

	rstRet.Update

	Set rstRet = Nothing
	ObjConn.CommitTrans

 if Err.Number <> 0 then
 cmd.ActiveConnection.RollBackTrans
 echo Err.Number & "<br />" & Err.Description
	end if

End Function
Como faço para tratar o erro que acontece quando vou fazer a inserção (Função Inserir).

>
Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[MySQL][ODBC 3.51 Driver][mysqld-5.0.51a-community-nt]Duplicate entry 'davidterra@provedor.com.br' for key 2