Visual Basic - Porque pasa (Cont...)

___ _ _ _ _ _ _ __________

y con el ADOData control hago esto

If MsgBox("Desea Guardar el Registro ?", vbYesNo + vbExclamation, "AV") = vbYes Then

Adodc1.Recordset.AddNew
Adodc1.Recordset("Contacto") = txcontacto
Adodc1.Recordset("Email") = txemail
Adodc1.Recordset("Agencia") = txagencia
Adodc1.Recordset("Zona") = TxZona
Adodc1.Recordset("Estado") = txestado
Adodc1.Recordset.Update
txagencia = ""
txcontacto = ""
txemail = ""
txagencia.SetFocus
MsgBox "Registro Guardado Exitosamente", vbOKOnly, "AV"
Else: txagencia.SetFocus
txagencia.SelStart = Len(txagencia)
txagencia.SelText = ""
Adodc1.Recordset.CancelUpdate
End If

y esto si funciona ... bueno en el primer programa pero en el 2do no ..
porque ? porque se dan estos errores ?

GRACIAS