Dim con as OleDbConnection
Dim com as OleDbCommand
con = OleDbConnection("Provider=microsoft.ace.OLEDB.12.0;data source=H:\My diploma files(NIBM)\NIBM.accdb")
con.Open()
com = OleDbCommand("Update Driver details set DriverName=@DriverName where DriverNo=@DriverNo", con)
com.AddWithValue("nome@Driver", TextBox2.Text)
com.AddWithValue("não @Driver", textBox1.Text)
com.ExecuteNonQuery()
MsgBox("registro atualizado")
con.Close()