first you should put this code on the upper part of the codes just before the class of the form that you are using
Imports System.Data.OleDb
Dim con as new OleDBConnection
Dim ds As New DataSet
Dim da As New OleDbDataAdapter
con.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & My.Application.Info.DirectoryPath & "\dbase.mdb"
da = New OleDbDataAdapter("select * from contacts where [contact id] = '" & Textbox1.text & "'", reservationConn)
da.Fill(ds, "Contacts")
inc=-1
ds.Tables("s").Rows(inc).Item(1) = TextBox2.Text
ds.Tables("s").Rows(inc).Item(2) = TextBox3.Text
ds.Tables("s").Rows(inc).Item(3) = TextBox4.Text
ds.Tables("s").Rows(inc).Item(4) = TextBox5.Text
ds.Tables("s").Rows(inc).Item(5) = TextBox6.Text
ds.Tables("s").Rows(inc).Item(6) = TextBox7.Text
ds.Tables("s").Rows(inc).Item(7) = TextBox8.Text
ds.Tables("s").Rows(inc).Item(8) = TextBox9.Text
da.Update(ds, "s")
MsgBox("updated")
*Note
You can try this code. Hope it helps!