(VB.NET) ช่วยดู code ปุ่มให้ทีครับ มือใหม่กำลังศึกษาครับ

    Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click
        If txtid.Text = "" Or txtname.Text = "" Or txtauthor.Text = "" Or txtprice.Text = "" Then
            MsgBox("กรุณากรอกข้อมูลให้ครบ")
            Exit Sub
        End If
        Try
            Call opencon()
            OleDa.InsertCommand = New OleDbCommand()
            OleDa.InsertCommand.CommandText = "INSERT TO BOOKS (Books_ID , Books_Name , Books_Author , Books_Price , Status) " & _
            "VALUES (@Books_ID , @Books_Name , @Books_Author , @Books_Price , @Status)"
            OleDa.InsertCommand.Connection = OleCn
            OleDa.InsertCommand.Parameters.Add("@Books_ID", OleDbType.VarWChar, 50, "Books_ID").Value = txtid.Text
            OleDa.InsertCommand.Parameters.Add("@Books_Name", OleDbType.VarWChar, 50, "Books_Name").Value = txtname.Text
            OleDa.InsertCommand.Parameters.Add("@Books_Author", OleDbType.VarWChar, 50, "Books_Author").Value = txtauthor.Text
            OleDa.InsertCommand.Parameters.Add("@Books_Price", OleDbType.VarWChar, 50, "Books_Price").Value = txtprice.Text
            OleDa.InsertCommand.Parameters.Add("@Status", OleDbType.VarChar, 50, "Status").Value = cmbstatus.Text

            OleDa.InsertCommand.ExecuteNonQuery()
            Call AddBooks.LoadLv()
            Call closecon()

            MsgBox("ทำการ Save เรียบร้อยแล้ว")
            Me.Close()
        Catch ex As Exception

            MsgBox("ทำการ Save ไม่สำเร็จ")
            Call closecon()
            txtid.Focus()
            txtid.SelectAll()
        End Try
    End Sub