كود زر الحذف والتعديل

السلام عليكم

هذا هو كود التعديل

Dim Conn As New OleDbConnection(ConStr)
SavInto.Connection = Conn
SavInto.CommandType = CommandType.Text
SavInto.CommandText = "UPDATE Table1 SET name = '" & Trim(TextBox1.Text) & "' ,City = '" & _
Trim(TextBox2.Text) & "' , mobile= '" & Trim(TextBox3.Text) & "' WHERE mobile ='" & n & "'"
Conn.Open()
SavInto.ExecuteNonQuery()
Conn.Close()
MsgBox("تم التعديل بنجاح")

وهذا كود الحذف

Dim adapter2 As New OleDbDataAdapter(SQLstr, Conn)
Dim SavInto As New OleDb.OleDbCommand
SavInto.Connection = Conn
SavInto.CommandType = CommandType.Text
SavInto.CommandText = "DELETE FROM Table1 WHERE Fieldname ='" & Trim(TextBox4.Text) & "'"
Conn.Open()
SavInto.ExecuteNonQuery()
DataSet1.Clear()
adapter2.Fill(

بالتوفيق