سلام کدتون رو به شکل زیر تغییر بدین ببین درست میشه :
Dim con As System.Data.OleDb.OleDbConnection
Dim cmd As System.Data.OleDb.OleDbCommand
con = New System.Data.OleDb.OleDbConnection("provider=micros oft.jet.oledb.4.0;data source=D:\poroje payani\1\web froshgah\logindb.mdb")
con.Open()
cmd = New System.Data.OleDb.OleDbCommand("update kala set name=@name,price=@price,image=@image where code=@code", con)
cmd.Parameters.AddWithValue("@name", txteditnam.Text)
cmd.Parameters.AddWithValue("@price", txteditprc.Text)
cmd.Parameters.AddWithValue("@image", txteditaks.Text)
cmd.Parameters.AddWithValue("@code", txteditcod.Text)
cmd.ExecuteNonQuery()
con.Close()