Les pido ayuda desesperada

[eduardo90]

Ayudenme, tengo el sig. codigo y quiero colocar un boton para eliminar cualquier registro como le hago, me he estado quebrando la cabeza y no me sale que pasa.

Imports System.Data.SqlClient

Public Class Form1

Private oConexion As SqlConnection
Private oDataSet As DataSet
Private oDataAdapter As SqlDataAdapter


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Crea una nueva conección
oConexion = New SqlConnection()
oConexion.ConnectionString = "Server=(local);Database=Inventario;uid=sa;pwd =;"

'Crea un Adaptador
oDataAdapter = New SqlDataAdapter()

'CREA COMANDOS PARA LA INSERCIÓN

Dim oCmdInsercion As New SqlCommand("INSERT INTO Persona" & _
"(Nombre,Apellido,Edad) VALUES(@Nombre,@Apellido,@Edad)", oConexion)

oDataAdapter.InsertCommand = oCmdInsercion
oDataAdapter.InsertCommand.Parameters.Add(New SqlParameter("@Nombre", SqlDbType.NVarChar))
oDataAdapter.InsertCommand.Parameters.Add(New SqlParameter("@Apellido", SqlDbType.NVarChar))
oDataAdapter.InsertCommand.Parameters.Add(New SqlParameter("@Edad", SqlDbType.NVarChar))

'CREA COMANDOS PARA LA ELIMINACIÓN


'Crea la consulta y lo asigna al adaptador
Dim oCmdConsulta As New SqlCommand("SELECT * FROM Persona", oConexion)

oDataAdapter.SelectCommand = oCmdConsulta

'Crea un conjunto de datos
oDataSet = New DataSet()
Me.CargaDatos()
End Sub

Private Sub CargaDatos()
oDataSet.Clear()

oConexion.Open()
oDataAdapter.Fill(oDataSet, "Persona")
oConexion.Close()

Me.grdDatos.DataSource = oDataSet
Me.grdDatos.DataMember = "Persona"
End Sub

Private Sub btnGrabar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGrabar.Click
Dim Resultado As Integer

oDataAdapter.InsertCommand.Parameters("@Nombre").V alue = Me.txtNombre.Text
oDataAdapter.InsertCommand.Parameters("@Apellido") .Value = Me.txtApellido.Text
oDataAdapter.InsertCommand.Parameters("@Edad").Val ue = Me.txtEdad.Text

oConexion.Open()
Resultado = oDataAdapter.InsertCommand.ExecuteNonQuery
oConexion.Close()

Me.CargaDatos()

MsgBox("REGISTRO AÑADIDO")
End Sub

Private Sub btnEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEliminar.Click

End Sub

al codigo del btnEliminar no le he puesto nada porque no se que poner para eliminar

[el_agu_4ever]

El comando sql correspondiente es DELETE.
Al igual que usas el INSERT INTO, puedes utilizar este, ejemplo:

DELETE * from TABLA1;

A ver si te sirve de algo

Un saludo

[eduardo90]

Imports System.Data.SqlClient

Public Class Form1

Private oConexion As SqlConnection
Private oDataSet As DataSet
Private oDataAdapter As SqlDataAdapter


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Crea una nueva conección
oConexion = New SqlConnection()
oConexion.ConnectionString = "Server=(local);Database=Inventario;uid=sa;pwd =;"

'Crea un Adaptador
oDataAdapter = New SqlDataAdapter()

'CREA COMANDOS PARA LA INSERCIÓN

Dim oCmdInsercion As New SqlCommand("DELETE * FROM Persona" & _
"(Nombre,Apellido,Edad) VALUES(@Nombre,@Apellido,@Edad)", oConexion)

oDataAdapter.DeleteCommand = oCmdInsercion
oDataAdapter.DeleteCommand.Parameters.Add(New SqlParameter("@Nombre", SqlDbType.NVarChar))
oDataAdapter.DeleteCommand.Parameters.Add(New SqlParameter("@Apellido", SqlDbType.NVarChar))
oDataAdapter.DeleteCommand.Parameters.Add(New SqlParameter("@Edad", SqlDbType.NVarChar))

'CREA COMANDOS PARA LA ELIMINACIÓN


'Crea la consulta y lo asigna al adaptador
Dim oCmdConsulta As New SqlCommand("SELECT * FROM Persona", oConexion)

oDataAdapter.SelectCommand = oCmdConsulta

'Crea un conjunto de datos
oDataSet = New DataSet()
Me.CargaDatos()
End Sub

Private Sub CargaDatos()
oDataSet.Clear()

oConexion.Open()
oDataAdapter.Fill(oDataSet, "Persona")
oConexion.Close()

Me.grdDatos.DataSource = oDataSet
Me.grdDatos.DataMember = "Persona"
End Sub

Private Sub btnBorrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGrabar.Click
Dim Resultado As Integer

oDataAdapter.DeleteCommand.Parameters("@Nombre").V alue = Me.txtNombre.Text
oDataAdapter.DeleteCommand.Parameters("@Apellido") .Value = Me.txtApellido.Text
oDataAdapter.DeleteCommand.Parameters("@Edad").Val ue = Me.txtEdad.Text

oConexion.Open()
Resultado = oDataAdapter.DeleteCommand.ExecuteNonQuery()
oConexion.Close()

Me.CargaDatos()

MsgBox("REGISTRO BORRADO")
End Sub

y me dá el siguiente error

Line 1: Incorrect syntax near '*'. ¿Que diablos es eso?