vb.net การ insert แบบมีเงื่อนไข ช่วยหน่อยนะครับ และการดึงข้อมูลมาแสดงแบบ แยกส่วนข้อมูล

Imports System.Data.OleDb
Imports System.Data

Public Class OfficialResidence
    Dim Cnn As New OleDbConnection(Cnnstring)
    Dim Cnnstring As String

Private Sub btnSentData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSentData.Click
        Dim Conn As New OleDbConnection
        Dim Cmd As New OleDbCommand
        Dim cmdtext As String

        Cnnstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Dormitory.mdb;"

        cmdtext = "INSERT INTO EmpDetail(Reson,Asset,Reservation,Roomnumber,) " & _
        " VALUES ('" & txtReson.Text & "','" & txtAsset.Text & "','" & DateTime.Now.ToString() & "','" & txtRoom.Text & "')"

        '('" & Convert.ToString(DropDownList1.SelectedValue) & "')

        Conn.ConnectionString = Cnnstring
        Conn.Open()
        Cmd.Connection = Conn
        Cmd.CommandText = cmdtext
        Cmd.CommandType = CommandType.Text

        Try

            Cmd.ExecuteNonQuery()
            Conn.Close()
            MessageBox.Show("บันทึกข้อมูลเรียบร้อย", "ผลการบันทึก", MessageBoxButtons.OK, MessageBoxIcon.Question)
        Catch ex As Exception

            MessageBox.Show("กรอกข้อมูลไม่ถูกต้อง กรุณาตรวจสอบอีกครั้ง", "เกิดข้อผิดพลาดเกี่ยวกับระบบ", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try
    End Sub