แล้วก็ออกแบบ Form จะออกแบบเป็นแบบไหนก็ได้นะครับ ผมทำเป็นตัวอย่างเฉยๆ
แล้วก็ใส่ Code ประมาณนี้ครับ
Code (VB.NET)
Imports System.Data.OleDb
Public Class Form1
Dim ConStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Thaicreate.accdb;Persist Security Info=False;"
Private Sub Rb_001_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _
Rb_001.CheckedChanged,
Rb_002.CheckedChanged
Dim Con As New OleDbConnection(ConStr)
Dim Cmd As OleDbCommand
Dim SQLStr As String
Con.Open()
SQLStr = "SELECT TitleText FROM MR_COM WHERE TitleID = ?"
Cmd = New OleDbCommand(SQLStr, Con)
Cmd.Parameters.Add("@ตรงนี้มันอะไรอ่ะ", OleDbType.Char, 15).Value = sender.text
Lb_Title.Text = Cmd.ExecuteScalar
Con.Close()
End Sub
End Class