Visual Basic - Capturar con vb errores generados por Jet

Como puedo hacer para que capturar desde Visual Basic los errores generados por el motor Microsoft Jet? por ejemplo si al grabar los datos encuentra que un campo sin duplicados ya estaba registrado (error 3022)?. esto con el fin de mostrar al usuario un mensaje que no sea el del propio motor sino uno mas entendible. Gracias

Para capturar los errores solo debe susar la instruccion On Error Goto EtiquetaDondeProcesasLosErrores. Por ejemplo

On Error Goto ManejadorErrores
rs.AddNew
rs.Fields("Codigo") = 10
....
Exit Sub
ManejadorErrores:
If Err.Number = 3022 Then
MsgBox "Registro Duplicado"
Else
MsgBox Err.Number & " : " & Err.Description
End If
End Sub

Saludos
Yamil