Error 2147467259

[AlexisLAG]

Fanni

envio codigo para agregar, guardar, borrar , teniendo en cuenta que la conexion ya se encuentra, y que el id es automatico en la tabla.

Private Sub cmdGuardar_Click()
On Error GoTo ErrorSub
cnn.Execute "UPDATE Datos set Apellido = '" & Text2 & _
"', Direccion = '" & Text3 & _
"', Telefono = '" & Text4 & _
"' where Id = " & Id & ""

rs.Requery 1
Exit Sub
ErrorSub:
MsgBox Err.Description
End Sub

Private Sub cmdAgregar_Click()
On Error GoTo ErrorSub
cnn.Execute "INSERT INTO Datos " & "(Nombre,Apellido,Direccion,Telefono) VALUES('" & _
Text2 & "','" & _
Text3 & "','" & _
Text4 & "')"
rs.Requery 1
Exit Sub
ErrorSub:
MsgBox Err.Description
End Sub

Private Sub Eliminar_Click()
If Id <> "" Then
cnn.Execute "delete from Datos where Id = " & Text1 & ""
' refresca el recordset
rs.Requery 1
' vuelve a cargar los datos en el ListView
limpiarTEXT '(funcion a realizar)
End If
End Sub


saludos