RE:Error -2447217887(80040e21)
Hola Mary!
He montado un pequeño ejemplo de como lo podrias hacer, te explico en un formulario vacio he insertado un control ADODC1 para ir mas rápido y no tener que declarar las conexiones,recordsets,etc.., bien pues tambien he añadido un Datagrid enlazado al ADODC1, un CommandButton y un TextBox, bien, el ADODC1 apunta a una base de datos ACCESS abriendo una tabla de Clientes con la siguiente instruccion "Select * from Clientes", ahora en el evento Click del Command mete este código, que intenta añadir el contenido del Text1.Text en el indice de la tabla y como ya existe va directo a la Etiqueta ERRORES de esta forma controlas este error.
´// ------------------------------------
Private Sub Command1_Click()
On Error GoTo Errores
With Adodc1
.Recordset.AddNew
Adodc1.Recordset.Fields(0) = Text1.Text
Adodc1.Recordset.Update
End With
Errores:
MsgBox Err.Description
Adodc1.Recordset.CancelBatch
Exit Sub
End Sub
´// -----------------------------------
Un saludo
lucKas