duda en vb.net 2003

[aradkas]

bueno.. lo explico rapidamente... a ver si alguien me puede hechar un cable...

tengo un formulario en el que doy de alta unos clientes, los modifico o los elimino... el caso es que lo de darlos de alta y que se registren los cambios en la base de datos en sql server 2003 lo tengo hecho... pero no recuerdo como era el código para borrarlos, ya que para modificarlos era exactamente igual que para darlos de alta...

os pongo lel código para darlos de alta ok?

a ver que me podeis sacar ;)

muchas gracias de antemano

################################################## ##
################################################## ##

#Region "boton aceptar añadir cliente"
Private Sub btnañadir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnañadir.Click

'***********************************************
'CODIGO PARA METER LOS DATOS EN LA BASE DE DATOS
'***********************************************

Me.OdbcConnection1.Open()

Dim Comando As Odbc.OdbcCommand

Try

Comando = New Odbc.OdbcCommand("INSERT INTO clientes (id, nombre, contacto, cif, direccion, localidad, cod_postal, provincia, pais, telefono, movil, fax, web, email, debe, haber, saldo) Values('" & Me.txtid.Text & "','" & Me.txtnombre.Text & "','" & Me.txtcontacto.Text & "','" & Me.txtnif.Text & "','" & Me.txtdireccion.Text & "','" & Me.txtlocalidad.Text & "','" & Me.txtcp.Text & "','" & Me.txtprovincia.Text & "','" & Me.txtpais.Text & "','" & Me.txtfijo.Text & "','" & Me.txtmovil.Text & "','" & Me.txtfax.Text & "','" & Me.txtweb.Text & "','" & Me.txtemail.Text & "','" & Me.txtdebe.Text & "','" & Me.txthaber.Text & "','" & Me.txtsaldo.Text & "')", Me.OdbcConnection1)

Comando.ExecuteNonQuery()
Catch ex As Exception

MsgBox(ex.Message)

End Try

Me.OdbcConnection1.Close()

Me.txtid.Text = ""
Me.txtnombre.Text = ""
Me.txtcontacto.Text = ""
Me.txtnif.Text = ""
Me.txtdireccion.Text = ""
Me.txtlocalidad.Text = ""
Me.txtcp.Text = ""
Me.txtprovincia.Text = ""
Me.txtpais.Text = "España"
Me.txtfijo.Text = ""
Me.txtmovil.Text = ""
Me.txtfax.Text = ""
Me.txtweb.Text = ""
Me.txtemail.Text = ""
Me.txtdebe.Text = ""
Me.txthaber.Text = ""
Me.txtsaldo.Text = ""
Me.ListView1.Update()
Me.Dataset_clientes1.AcceptChanges()
Me.OdbcDataAdapter1.Fill(Me.Dataset_clientes1)
Me.ListView1.Refresh()
Me.ListView1.Items.Clear()
Me.OdbcDataAdapter1.Fill(Me.Dataset_clientes1)
Dim Tablainicio As New DataTable
Me.OdbcDataAdapter1.Fill(Tablainicio)
Me.Rellenartabla = Tablainicio
End If
End Sub
#End Region

################################################## ##
################################################## ##