Visual Basic - Transacciones

Hola, mi problema es con el manejo de las transacciones, tengo algo así:

Private Sub cmdGrabar_Click()

CN_Gestion.BeginTrans
On Error GoTo error


CN_Gestion.Execute "INSERT INTO " & tColonias & " (Clave, Colonia, CP, Cve_Zona) VALUES ('" & txtColonias(0).Text & "', '" & txtColonias(1).Text & "', " & txtColonias(2).Text & ", '" & txtColonias(3).Text & "')"

CN_Gestion.CommitTrans
Exit Sub
error:
CN_Gestion.RollbackTrans
MsgBox Err.Number & " " & Err.Description, vbOKOnly, Leyenda
Err.Clear

El problema es que cuando ejecuto esto se queda trabado el sistema y después de un rato me aparece un mensaje "El tiempo de espera se agoto", alguien me pudiera decir por qué hace esto ó que estoy haciendo mal, de antemano muchas gracias. Adiós
End Sub

Hola, tal vez puede ser por la etiqueta que estas usando para capturar el error, intenta con:

On Error GoTo Grabar_Error

Otra cosa, si el tipo de datos de el CP es numerico tu sentencia esta bien, pero si es de tipo cadena te faltan los apostrofos

Espero que esto ayude, suerte

smf