ขอผู้รู้ช่วยแนะนำมือใหม่ด้วยครับเกี่ยวกับการเขียนโคด Visual basic2010 ในการ update ข้อมูลจาก textbox เข้าดาต้าเบส access

ขอผู้รู้ช่วยแนะนำมือใหม่ด้วยครับเกี่ยวกับการเขียนโคด Visual basic2010 ในการ update ข้อมูลจาก textbox เข้าดาต้าเบส access ตอนทดลอง debug ดูโปรแกรมก็รันว่าอัพเดทแล้วแต่ใน access ข้อมูลไม่เข้า ฝากผู้รู้แนะนำด้วยครับว่าควรจะเขียนอย่างไร พอดีผมไม่ได้จบด้านคอมพิวเตอรื แต่มีคว่มสนใจในการเขียนโปรแกรมง่ายๆ ที่ใช้ในการเก็บข้อมูลจากงานที่เกี่ยวกับห้องเเล็ปไว้ใช้งานครับ รบกวนผู้รู้ช่วยชี้แนะด้วยครับ ถ้าจะมีท่านใดช่วยแนะนำแหล่งหา code ด้วยก็ขอขอบคุณด้วยนะครับ

Imports System.Data
Imports System.Data.OleDb
Public Class frm_edit
    Public connstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Chainarong.k\Desktop\Database app\PrimerDatabase2015New.mdb;persist security info = false"
    Public con As New OleDbConnection
    

     Private Sub frm_edit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        con.ConnectionString = connstring
        con.Open()
        
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error Resume Next
        Dim oledbc As New OleDbCommand
        Dim oledbdr As OleDbDataReader
        With oledbc
            .Connection = con
            .CommandText = "update tbl_primerbank set agent='" & TextBox18.Text & "',species='" & TextBox2.Text & "',Amplified='" & TextBox3.Text & "',Type_PCR='" & TextBox19.Text & "',Forward_P1='" & TextBox4.Text & "',Forward_primer1_seq='" & TextBox5.Text & "',Reverse_primer1_name='" & TextBox6.Text & "',Reverse_primer1_seq='" & TextBox7.Text & "',Forward_primer2_name='" & TextBox8.Text & "',Forward_primer2_seq='" & TextBox9.Text & "',Re_primer2_name='" & TextBox10.Text & "',Reverse_primer2_seq='" & TextBox11.Text & "',Probe1_name='" & TextBox12.Text & "',Probe1_seq='" & TextBox13.Text & "',Probe2_name='" & TextBox14.Text & "',Probe2_sequence='" & TextBox15.Text & "',Probe_label='" & TextBox16.Text & "',Seq_primer='" & TextBox17.Text & "',Assay_for_real='" & TextBox28.Text & "',Positive_control='" & TextBox23.Text & "',Amplify_kit='" & TextBox26.Text & "',Annealing_Temp='" & TextBox20.Text & "',Cycle_number='" & TextBox21.Text & "',Result='" & TextBox22.Text & "',Owner2='" & TextBox27.Text & "',Reference='" & TextBox24.Text & "',Remark='" & TextBox25.Text & "'where ID='" & TextBox1.Text & "'"
            .ExecuteNonQuery()

        End With
        MsgBox("Update.....", MsgBoxStyle.Information)
        TextBox18.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox19.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        TextBox7.Clear()
        TextBox8.Clear()
        TextBox9.Clear()
        TextBox10.Clear()
        TextBox11.Clear()
        TextBox12.Clear()
        TextBox13.Clear()
        TextBox14.Clear()
        TextBox15.Clear()
        TextBox16.Clear()
        TextBox17.Clear()
        TextBox28.Clear()
        TextBox23.Clear()
        TextBox26.Clear()
        TextBox20.Clear()
        TextBox21.Clear()
        TextBox22.Clear()
        TextBox27.Clear()
        TextBox24.Clear()
        TextBox25.Clear()
        TextBox1.Focus()
    End Sub