Visual Basic.NET - modificar

hola a todos necesito ayuda para modificar unos datos, elcodigoque tengo paraguardar es el siguiente:

Dim conexion As New SqlClient.SqlConnection
Dim cmdpresentacion, inspresentacion As New SqlClient.SqlCommand
Dim adappresentacion As New SqlClient.SqlDataAdapter
Dim dpresentacion As New DataSet

conexion.ConnectionString = "workstation id=HECTOR;packet size=4096;integrated security=SSPI;data source=HECTOR;persist security info=False;initial catalog=Phuertos"
adappresentacion.AcceptChangesDuringFill = True

cmdpresentacion.CommandText = "select * from PRESENTACION"
cmdpresentacion.Connection = conexion
adappresentacion.SelectCommand = cmdpresentacion

Dim presentacion As DataRow

inspresentacion.CommandText = "insert into PRESENTACION(codpresentacion, tipo) values(@codpresentacion, @tipo)"
inspresentacion.Parameters.Add("@codpresentacion", SqlDbType.VarChar, 20, "codpresentacion")
inspresentacion.Parameters.Add("@tipo", SqlDbType.VarChar, 30, "tipo")
inspresentacion.Connection = conexion
adappresentacion.InsertCommand = inspresentacion

adappresentacion.Fill(dpresentacion, "tpresentacion")
presentacion = dpresentacion.Tables("tpresentacion").NewRow
presentacion("codpresentacion") = tcodigo.Text
presentacion("tipo") = ttipo.Text
dpresentacion.Tables("tpresentacion").Rows.Add(presentacion)
adappresentacion.Update(dpresentacion, "tpresentacion")

como lo puedo hacer para modificar?????
gracias de antemano

Pues yo lo hago de otro modo

try
dim cn as new sqlclient.sqlconnection("string de conexion")
dim cmd as new sqlclient.sqlcommand("update tabla set campo = nuevovalor where campo = condicionante",cn)
cn.open
cmd.executenonquery
cn.close
catch ex as exception
msgbox (ex.message)
if cn.state = connection.open then
cn.close
end if
end try

Gracias haver acabo de acomodar lo keme diste y me sirvio, muchas gracias

gracias haver pero me gustaria que fuera el codigo como yo tengo el grabar para no perder la forma de hacerlo, y no tener codigos distintos gracias de todos modos

mira asi lo empece hacer yo pero me arroja un error en la ultima linea y puede ser que algo me falte antespero no seque puede ser


updpresentacion.CommandText = "UPDATE PRESENTACION SET tipo = @tipo, codpresentacion = @codpresentacion WHERE (codpresentacion = @Original_codpresentacion) AND (tipo = @Original_tipo); SELECT tipo, codpresentacion FROM PRESENTACION WHERE (codpresentacion = @codpresentacion)"
updpresentacion.Connection = conexion
adappresentacion.UpdateCommand = updpresentacion

modifica_pres = dpresentacion.Tables("tpresentacion").Rows(comparador)
modifica_pres.BeginEdit()
modifica_pres("codpresentacion") = tcodigo.Text
modifica_pres("tipo") = ttipo.Text
modifica_pres.EndEdit()
adappresentacion.Update(dpresentacion, "tpresentacion")

Pues la verdad a mi se me presenta como codigo enredado (pues porque no lo uso)
me parece mas sencillo el que ya te eh dado.

en tal caso crea stored procedures y ya....
es que es igual para el update, el delete, el insert, y el select es casi la misma sintaxis
y de ver tu codigo me eh enredado...