[سؤال] سبب عدم رغبتي في تعلم الفيجوال دون نت قد تجدون الأمر مضحك

كود :

Public Class Form1

    Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"

    Dim con As New OleDb.OleDbConnection(str)

    Dim sql As String = "select * from tb"

    Dim dt As DataTable

    Dim bs As BindingSource

    Dim da As OleDb.OleDbDataAdapter

    Dim cm As OleDb.OleDbCommandBuilder

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        dt = New DataTable

        bs = New BindingSource

        da = New OleDb.OleDbDataAdapter(sql, con)

        cm = New OleDb.OleDbCommandBuilder(da)

        da.Fill(dt)

        bs.DataSource = dt

        tid.DataBindings.Add("text", bs, "tid")

        tn.DataBindings.Add("text", bs, "tn")

        age.DataBindings.Add("text", bs, "age")

        mo.DataBindings.Add("text", bs, "mo")

        d.DataSource = bs

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        bs.MoveNext()

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        bs.MovePrevious()

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        bs.MoveFirst()

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        bs.MoveLast()

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        If MsgBox("هل انت متاكد من رغبتك باضافة صف جديد؟", MsgBoxStyle.YesNo) = MsgBoxResult.No Then Exit Sub

        bs.AddNew()

    End Sub

    Private Sub btnupd_Click(sender As Object, e As EventArgs) Handles btnupd.Click

        If MsgBox("هل انت متاكد من رغبتك بحفظ ", MsgBoxStyle.YesNo) = MsgBoxResult.No Then Exit Sub

        bs.EndEdit()

        da.Update(bs.DataSource)

    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

        If MsgBox("هل انت متاكد من رغبتك بحفظ الصف الحالي كمعدل؟", MsgBoxStyle.YesNo) = MsgBoxResult.No Then Exit Sub

        Dim drv As DataRowView = bs.Current

        drv(1) = tn.Text

        drv(2) = age.Text

        drv(3) = mo.Text

    End Sub

End Class