[มือใหม่] ได้สร้างGroupboxไว้โดยข้างในมีปุ่มradio button ให้เลือก ซึ่งถ้าเลือกปุ่มไหน ก็จะโชว์labelและtextbox ของปุ่มนั้น ทำได้หรือไม่

 private void ControlItem(bool la1, bool Text1, bool la2, bool Text2)
        {
            label1.Enabled = la1;
            textBox1.Enabled = Text1;
            label2.Enabled = la2;
            textBox2.Enabled = Text2;
        }     
        private void Form1_Load(object sender, EventArgs e)
        {           
            label1.Enabled = true;
            textBox1.Enabled = true;
            label2.Enabled = true;
            textBox2.Enabled = true;
        }
        private void radioButton1_Click(object sender, EventArgs e)
        {//แบบคู่

            if (radioButton1.Checked == true)
            {
                ControlItem(false, false, true, true);
            }
        }
        private void radioButton2_Click(object sender, EventArgs e)
        {//แบบคี่
            if (radioButton2.Checked == true)
            {
                ControlItem(true, true, false, false);
            }
        }

Private Sub DataGridView1_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit

        DataGridView1(0, e.RowIndex).Value = IIf(Convert.ToInt32(DataGridView1(1, e.RowIndex).Value) Mod 2 = 0, "แบบคู่", "แบบคี่")
    End Sub

Imports System.Data.OleDb
Imports System.Data
Public Class Form1
    Dim con As New OleDbConnection


    Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged
        Label1.Enabled = True
        TextBox1.Enabled = True
        Label2.Enabled = False
        TextBox2.Enabled = False

    End Sub

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




    End Sub



    Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Handles GroupBox1.Enter


    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged

    End Sub

    Private Sub RadioButton5_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton5.CheckedChanged
        Label1.Enabled = False
        TextBox1.Enabled = False
        Label2.Enabled = True
        TextBox2.Enabled = True
    End Sub

    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
        con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\admim\Documents\ฐานข้อมูล31.accdb"
        con.Open()

        Dim ds As New DataSet
        Dim dt As New DataTable
        ds.Tables.Add(dt)
        Dim da As New OleDbDataAdapter
        da = New OleDbDataAdapter("SELECT * FROM tb_Products", con)
        da.Fill(dt)
        Me.DataGridView1.DataSource = dt.DefaultView
        con.Close()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Label1.Enabled = True
        TextBox1.Enabled = True
        Label2.Enabled = True
        TextBox2.Enabled = True

    End Sub

    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
        con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\admim\Documents\ฐานข้อมูล31.accdb"
        con.Open()

        Dim ds As New DataSet
        Dim dt As New DataTable
        ds.Tables.Add(dt)
        Dim da As New OleDbDataAdapter
        da = New OleDbDataAdapter("SELECT * FROM tb_DD", con)
        da.Fill(dt)
        Me.DataGridView1.DataSource = dt.DefaultView
        con.Close()
    End Sub

End Class

Imports System.Data.OleDb
Imports System.Data
Public Class Form1
    Dim con As New OleDbConnection

    Private Sub  SetDisplay(chk As Boolean)
	    Label1.Enabled = chk
        TextBox1.Enabled = chk
        Label2.Enabled = Not chk
        TextBox2.Enabled = Not chk
	
	End Sub
	Public Sub DisplayDatagrid(sql As String, dgv As DataGridView)
        con.Open()
        Dim ds As New DataSet
        Dim dt As New DataTable
        ds.Tables.Add(dt)
        Dim da As New OleDbDataAdapter
        da = New OleDbDataAdapter(sql, con)
        da.Fill(dt)
        dgv.DataSource = dt.DefaultView
        con.Close()
    End Sub
    Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged
        SetDisplay(True)
    End Sub
    Private Sub RadioButton5_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton5.CheckedChanged
        SetDisplay(False)
    End Sub
    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
        DisplayDatagrid("SELECT * FROM tb_Products", DataGridView1)
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
	    con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\admim\Documents\ฐานข้อมูล31.accdb"
        Label1.Enabled = True
        TextBox1.Enabled = True
        Label2.Enabled = True
        TextBox2.Enabled = True
    End Sub
    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
        DisplayDatagrid("SELECT * FROM tb_DD", DataGridView1)
    End Sub

End Class

'เมื่อ Form1 เปิดมาสั่งให้ ติ๊ก RadioButton4 [แบบคี่] และเปิดใช้งาน TextBox1 [จำนวนเลขคี่]
'และปิดใช้งาน TextBox2 [จำนวนเลขคู่]
'ส่วน Label1 ไม่ได้ใช้ทำอะไรคงไม่ต้องไปยุ่งกับมัน
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
RadioButton4.Checked = True
TextBox1.Enabled = True
RadioButton5.Checked = False
TextBox2.Enabled = False
End Sub