Private
Sub
cmdeliminar_Click
(
sender
As
System
.
Object
,
e
As
System
.
EventArgs
)
Handles
cmdeliminar
.
Click
Dim
id
As
Integer
id
=
____________________
.
____________________
.
____________________
accion
.
____________________
=
____________________
.
____________________
accion
.
____________________
=
____________________
sql
=
"
____________________
____________________
____________________
____________________
____________________
=
"
&
____________________
&
"
"
____________________
.
____________________
=
____________________
Try
accion
.
____________________
(
)
MsgBox
(
"
Registro
Eliminado
"
)
Catch
ex
As
Exception
MsgBox
(
____________________
.
____________________
)
End
Try
End
Su
b