รบกวนพี่ๆ ดูโค้ดให้หน่อยค่ะ !!! vb2010 กับ access ค่ะ

   myqry = "INSERT INTO GetTheJob(ID_Delivery,Date_R,Distance,No_Vehicle,LeaseContainer,ID_Cus,ID_Des,Note) "
                myqry = myqry + "VALUES('" & ID_DeliveryTextBox.Text & "','" & Date_RDateTimePicker.Text & "','" & DistanceTextBox.Text & "','" & No_VehicleTextBox.Text & "','" & LeaseContainerTextBox.Text & "','" & ID_CusTextBox.Text & "','" & ID_DesTextBox.Text & "','" & NoteTextBox.Text & "')"
                mycmd = New OleDbCommand
                With mycmd
                    .CommandText = myqry
                    .Connection = conn
                    MsgBox(myqry)
                    .ExecuteNonQuery()
                End With

   myqry = "UPDATE GetTheJob  SET"
                myqry = myqry + " ID_Delivery = '" & ID_DeliveryTextBox.Text & "',"

                myqry = myqry + " Date_R = '" & Date_RDateTimePicker.Text & "',"

                myqry = myqry + " Distance = '" & DistanceTextBox.Text & "',"

                myqry = myqry + " No_Vehicle = '" & No_VehicleTextBox.Text & "',"

                myqry = myqry + " LeaseContainer = '" & LeaseContainerTextBox.Text & "',"

                myqry = myqry + " ID_Cus = '" & ID_CusTextBox.Text & "',"

                myqry = myqry + " ID_Des = '" & ID_DesTextBox.Text & "',"

                myqry = myqry + " Note = '" & NoteTextBox.Text & "'"




                myqry = myqry + " WHERE "
                myqry = myqry + " ID_Receipt = " & ID_ReceiptTextBox.Text



                MsgBox(myqry)
                mycmd = New OleDbCommand(myqry, conn)
                mycmd.ExecuteNonQuery()