ทำโปรแกรมเป็น install คับพี่ ๆน้อง ๆสามารถเอาไปใช้ได้เคดิต คุณหางอึ่ง ที่ช่วยครับ

Option Explicit On
Imports System.Data.OleDb

Public Class EDIT_LISTDOCTOR_ORDER_BYNAME

    Dim strConn As String
    Dim Conn As New OleDbConnection
    Dim da, da1, da2, da3 As OleDbDataAdapter
    Dim dc1, dc2, dc3 As New DataTable
    Dim ds, Dataset As New DataSet()
    Dim ComSearch As New OleDbCommand
    Dim CurrentEmployees As Integer
    Dim IsFind As Boolean = False

    Private Sub EDIT_LISTDOCTOR_OTHER_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LoadFiledata()
        showAllDoctor()
        cmd_EDIT.Enabled = False : cmd_SAVEEDIT.Enabled = False
        cmd_DELECT.Enabled = False : cmd_CLEAR.Enabled = False
        cmd_Searchdata.Enabled = False : cmd_EXIT.Enabled = True
        ClearTextF() : txt_Searchdata.Focus()
    End Sub

    Private Sub LoadFiledata()
        ' Code ติดต่อกับฐานข้อมูล Accress 2007
        ' strConn = "Provider=Microsoft.ACE.OLEDB.12.0; " & _
        '       "Data Source=..\\NEWMarketing.accdb;Persist Security Info=False"

        ' Code ติดต่อกับฐานข้อมูล Accress 2003
        strConn = "provider=Microsoft.Jet.oleDb.4.0; Data Source=..\\NEWMarketing.mdb"

        Dim Conn As New OleDbConnection(strConn)
        Conn.Open()

        Dim Sql As String = "select * from savedoctors"
        Dim Cmd As New OleDbCommand(Sql, Conn)
        Dim Adapter As New OleDbDataAdapter(Cmd)

        Dim Data As New DataSet()
        Adapter.Fill(Data, "cat")

        Dim Data1 As New DataSet()
        DataGridView1.DataSource = Data.Tables("cat")
        Conn.Close()

        Dim sqlCategories As String
        sqlCategories = "SELECT * from savedoctors"
        da = New OleDbDataAdapter(sqlCategories, Conn)
        da.Fill(ds, "savedoctors")
        Return
    End Sub

    Private Sub CallDataContant_Title()
        '---------------------------------------------(เรียกข้อมูลจาก Table Provinces มาแสดงใน Combobox)
        Dim sqlComputer_Plean As String
        Dim Conn As New OleDbConnection(strConn)
        Conn.Open()
        sqlComputer_Plean = "SELECT id_Contact,contact_type FROM Contact_type"
        da1 = New OleDbDataAdapter(sqlComputer_Plean, Conn)
        da1.Fill(dc1)
        With cmb_Contact
            .DataSource = dc1
            .DisplayMember = dc1.Columns.Item("contact_type").ColumnName  'ตัวที่ใช้แสดงใน Combobox
            .SelectedItem = dc1.Columns.Item("id_Contact").ColumnName 'รหัสที่เราสร้างขึ้นมาเช่น Primary Key
        End With
        Return
    End Sub

    Private Sub CallDataPlance_Title()
        '---------------------------------------------(เรียกข้อมูลจาก Table Provinces มาแสดงใน Combobox)
        Dim sqlComputer_Plean As String
        Dim Conn As New OleDbConnection(strConn)
        Conn.Open()
        sqlComputer_Plean = "SELECT id_plan,workplean_labtype FROM Workplean_type"
        da2 = New OleDbDataAdapter(sqlComputer_Plean, Conn)
        da2.Fill(dc2)
        With cmb_Workplean
            .DataSource = dc2
            .DisplayMember = dc2.Columns.Item("workplean_labtype").ColumnName  'ตัวที่ใช้แสดงใน Combobox
            .SelectedItem = dc2.Columns.Item("id_plan").ColumnName 'รหัสที่เราสร้างขึ้นมาเช่น Primary Key
        End With
        Return
    End Sub

    Private Sub CallDataPrivince_Title()
        '---------------------------------------------(เรียกข้อมูลจาก Table Provinces มาแสดงใน Combobox)
        Dim sqlComputer_Plean As String
        Dim Conn As New OleDbConnection(strConn)
        Conn.Open()
        sqlComputer_Plean = "SELECT id_province,name_province FROM Province_type"
        da3 = New OleDbDataAdapter(sqlComputer_Plean, Conn)
        da3.Fill(dc3)
        With cmb_Province
            .DataSource = dc3
            .DisplayMember = dc3.Columns.Item("name_province").ColumnName  'ตัวที่ใช้แสดงใน Combobox
            .SelectedItem = dc3.Columns.Item("id_province").ColumnName 'รหัสที่เราสร้างขึ้นมาเช่น Primary Key
        End With
        Return
    End Sub

    Private Sub ClearTextT()
        txt_Type.Text = "" : txt_Type.Enabled = True
        lbl_Name.Text = "" : lbl_Name.Enabled = True
        txt_birthday.Text = "" : txt_birthday.Enabled = True
        lbl_Clinic.Text = "" : lbl_Clinic.Enabled = True
        txt_Address.Text = "" : txt_Address.Enabled = True
        txt_Tel.Text = "" : txt_Tel.Enabled = True
        txt_Tels.Text = "" : txt_Tels.Enabled = True
        txt_Telwork1.Text = "" : txt_Telwork1.Enabled = True
        txt_Telwork2.Text = "" : txt_Telwork2.Enabled = True
        txt_Fax.Text = "" : txt_Fax.Enabled = True
        txt_Email.Text = "" : txt_Email.Enabled = True
        txt_Working.Text = "" : txt_Working.Enabled = True
        txt_Service.Text = "" : txt_Service.Enabled = True
        txt_Marks.Text = "" : txt_Marks.Enabled = True
        txt_Plean.Text = "" : txt_Plean.Enabled = True
        cmb_Province.Text = "จังหวัด" : cmb_Province.Enabled = True
        txt_website.Text = "" : txt_website.Enabled = True
        cmb_Contact.Text = "สถานะการติดต่อ" : cmb_Contact.Enabled = True
        cmb_Workplean.Text = "สถานประกอบการ" : cmb_Workplean.Enabled = True
    End Sub

    Private Sub ClearTextF()
        lbl_id.Text = "000000"
        txt_Type.Text = "" : txt_Type.Enabled = False
        lbl_Name.Text = "" : lbl_Name.Enabled = False
        txt_birthday.Text = "" : txt_birthday.Enabled = False
        lbl_Clinic.Text = "" : lbl_Clinic.Enabled = False
        txt_Address.Text = "" : txt_Address.Enabled = False
        txt_Tel.Text = "" : txt_Tel.Enabled = False
        txt_Tels.Text = "" : txt_Tels.Enabled = False
        txt_Telwork1.Text = "" : txt_Telwork1.Enabled = False
        txt_Telwork2.Text = "" : txt_Telwork2.Enabled = False
        txt_Fax.Text = "" : txt_Fax.Enabled = False
        txt_Email.Text = "" : txt_Email.Enabled = False
        txt_Working.Text = "" : txt_Working.Enabled = False
        txt_Service.Text = "" : txt_Service.Enabled = False
        txt_Marks.Text = "" : txt_Marks.Enabled = False
        txt_Plean.Text = "" : txt_Plean.Enabled = False
        cmb_Province.Text = "จังหวัด" : cmb_Province.Enabled = False
        txt_website.Text = "" : txt_website.Enabled = False
        cmb_Contact.Text = "สถานะการติดต่อ" : cmb_Contact.Enabled = False
        cmb_Workplean.Text = "สถานประกอบการ" : cmb_Workplean.Enabled = False
    End Sub

    Private Sub ClearTextEdit()
        txt_Type.Enabled = True : lbl_Name.Enabled = True
        txt_birthday.Enabled = True
        lbl_Clinic.Enabled = True : txt_Address.Enabled = True
        txt_Tel.Enabled = True : txt_Tels.Enabled = True
        txt_Telwork1.Enabled = True : txt_Telwork2.Enabled = True
        txt_Fax.Enabled = True : txt_Email.Enabled = True
        txt_Working.Enabled = True : txt_Service.Enabled = True
        txt_Marks.Enabled = True : txt_Plean.Enabled = True
        cmb_Province.Enabled = True : txt_website.Enabled = True
        cmb_Contact.Enabled = True : cmb_Workplean.Enabled = True
    End Sub

    Private Sub showAllDoctor() ' Function ใช้เพื่อ Call Table Doctor
        Dim SqlDoctor As String
        SqlDoctor = "SELECT * From savedoctors"

        SqlDoctor &= " FROM savedoctors"
        da.SelectCommand.CommandText = SqlDoctor

        If IsFind = True Then
            ds.Tables("savedoctors").Clear()
        End If
        If ds.Tables("savedoctors").Rows.Count <> 0 Then
            IsFind = True

            With DataGridView1
                .ReadOnly = True
                .DataSource = ds.Tables("savedoctors")
            End With
        Else
            IsFind = False
        End If
        Formdisplay_Colum()
        Return
    End Sub

    Private Sub Formdisplay_Colum() ' Function แสดงหัวข้อบน Gridviwe Table Doctor
        Dim Ss As New DataGridViewCellStyle()

        Ss.Font = New Font("AngsanaUPC", 17, FontStyle.Bold)

        With DataGridView1
            If .RowCount > 0 Then
                .Columns(0).HeaderText = "รหัส"
                .Columns(1).HeaderText = "อักษรนำหน้ารหัส"
                .Columns(2).HeaderText = "ชื่อทันตแพทย์"
                .Columns(3).HeaderText = "วัน / เดือน / ปี เกิด"
                .Columns(4).HeaderText = "ชื่อคลินิก"
                .Columns(5).HeaderText = "ที่อยู่"
                .Columns(6).HeaderText = "เบอร์มือถือ"
                .Columns(7).HeaderText = "เบอร์มือถือ"
                .Columns(8).HeaderText = "เบอร์ที่ทำงาน"
                .Columns(9).HeaderText = "เบอร์ที่ทำงาน"
                .Columns(10).HeaderText = "เบอร์แฟร์ก"
                .Columns(11).HeaderText = "E - MAIL  ADDRESS"
                .Columns(12).HeaderText = "ลักษณะงานที่ทำ"
                .Columns(13).HeaderText = "แล็ปที่ใช้บริการ"
                .Columns(14).HeaderText = "หมายเหตุ"
                .Columns(15).HeaderText = "สถานที่ทำงาน"
                .Columns(16).HeaderText = "จังหวัดที่ตั้งสถานประกอบการ"
                .Columns(17).HeaderText = "WEB - SITE"
                .Columns(18).HeaderText = "สถานะการติดต่อ"
                .Columns(19).HeaderText = "ประเภทสถานประกอบการ"
                .Columns(20).HeaderText = "ตรวจสอบสถานะ"

                .Columns(0).Width = 53
                .Columns(1).Width = 120
                .Columns(2).Width = 200
                .Columns(3).Width = 120
                .Columns(4).Width = 290
                .Columns(5).Width = 340
                .Columns(6).Width = 95
                .Columns(7).Width = 95
                .Columns(8).Width = 105
                .Columns(9).Width = 105
                .Columns(10).Width = 95
                .Columns(11).Width = 210
                .Columns(12).Width = 160
                .Columns(13).Width = 160
                .Columns(14).Width = 250
                .Columns(15).Width = 170
                .Columns(16).Width = 150
                .Columns(17).Width = 247
                .Columns(18).Width = 120
                .Columns(19).Width = 170
                .Columns(20).Width = 100
            End If
        End With
    End Sub

    Private Sub DataGridView1_CellMouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseUp
        If e.RowIndex = DataGridView1.Rows.Count - 1 Then
            Exit Sub
        End If
        If e.RowIndex = -1 Then Exit Sub
        With DataGridView1
            CurrentEmployees = CInt(.Rows.Item(e.RowIndex).Cells(0).Value)
            lbl_id.Text = .Rows.Item(e.RowIndex).Cells(0).Value.ToString()
            txt_Type.Text = .Rows.Item(e.RowIndex).Cells(1).Value.ToString()
            lbl_Name.Text = .Rows.Item(e.RowIndex).Cells(2).Value.ToString()
            txt_birthday.Text = .Rows.Item(e.RowIndex).Cells(3).Value.ToString()
            lbl_Clinic.Text = .Rows.Item(e.RowIndex).Cells(4).Value.ToString()
            txt_Address.Text = .Rows.Item(e.RowIndex).Cells(5).Value.ToString()
            txt_Tel.Text = .Rows.Item(e.RowIndex).Cells(6).Value.ToString()
            txt_Tels.Text = .Rows.Item(e.RowIndex).Cells(7).Value.ToString()
            txt_Telwork1.Text = .Rows.Item(e.RowIndex).Cells(8).Value.ToString()
            txt_Telwork2.Text = .Rows.Item(e.RowIndex).Cells(9).Value.ToString()
            txt_Fax.Text = .Rows.Item(e.RowIndex).Cells(10).Value.ToString()
            txt_Email.Text = .Rows.Item(e.RowIndex).Cells(11).Value.ToString()
            txt_Working.Text = .Rows.Item(e.RowIndex).Cells(12).Value.ToString()
            txt_Service.Text = .Rows.Item(e.RowIndex).Cells(13).Value.ToString()
            txt_Marks.Text = .Rows.Item(e.RowIndex).Cells(14).Value.ToString()
            txt_Plean.Text = .Rows.Item(e.RowIndex).Cells(15).Value.ToString()
            cmb_Province.Text = .Rows.Item(e.RowIndex).Cells(16).Value.ToString()
            txt_website.Text = .Rows.Item(e.RowIndex).Cells(17).Value.ToString()
            cmb_Contact.Text = .Rows.Item(e.RowIndex).Cells(18).Value.ToString()
            cmb_Workplean.Text = .Rows.Item(e.RowIndex).Cells(19).Value.ToString()
            lbl_Checkdoc.Text = .Rows.Item(e.RowIndex).Cells(20).Value.ToString()
        End With
        cmd_EDIT.Enabled = True : cmd_DELECT.Enabled = True
        cmd_CLEAR.Enabled = True : cmd_EXIT.Enabled = False
        Return
    End Sub

    Private Sub cmd_Searchdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_Searchdata.Click
        Dim sqlSearch As String
        Dim dr As OleDbDataReader
        Dim dt As DataTable
        ComSearch = New OleDbCommand()
        With Conn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = strConn
            .Open()

            sqlSearch = "Select * from savedoctors where name_doctor like '%" & txt_Searchdata.Text.Trim() & "%' order by id_doctor asc"

            With ComSearch
                ComSearch.CommandType = CommandType.Text
                ComSearch.CommandText = sqlSearch
                ComSearch.Connection = Conn
                ComSearch.Parameters.AddWithValue("name_doctor", OleDbType.VarChar).Value = txt_Searchdata.Text.Trim()
                dr = .ExecuteReader()

                If dr.HasRows Then
                    dt = New DataTable()
                    dt.Load(dr)
                    DataGridView1.DataSource = dt
                    cmd_Searchdata.Enabled = False : cmd_EDIT.Enabled = False
                    cmd_EXIT.Enabled = False : txt_Searchdata.Enabled = False
                Else
                    MessageBox.Show("ไม่พบข้อมูล")
                    txt_Searchdata.Clear()
                    txt_Searchdata.Enabled = True
                    txt_Searchdata.Focus()
                End If
            End With
        End With
        dr.Close()
        Return
    End Sub

    Private Sub txt_Searchdata_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_Searchdata.TextChanged
        If txt_Searchdata.Text = "" Then
            cmd_Searchdata.Enabled = False
        Else
            cmd_Searchdata.Enabled = True
        End If
    End Sub

    Private Sub cmd_EDIT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_EDIT.Click
        ClearTextEdit()
        CallDataContant_Title()
        CallDataPlance_Title()
        CallDataPrivince_Title()
        cmd_EDIT.Enabled = False : cmd_DELECT.Enabled = False
        cmd_SAVEEDIT.Enabled = True : cmd_CLEAR.Enabled = True
        cmd_EXIT.Enabled = False
    End Sub

    Private Sub cmd_SAVEEDIT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_SAVEEDIT.Click
        Dim SqlEdit As String
        Dim ComEdit As New OleDbCommand

        If txt_Type.Text = "" Then
            MessageBox.Show("กรอกข้อมูลอักษรนำหน้ารหัส  !!!", "แจ้งให้ทราบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
            txt_Type.Focus()
            Exit Sub
        End If
        If txt_Address.Text = "" Then
            MessageBox.Show("กรอกข้อมูลที่อยู่ คลินิก / โรงพยาบาล  !!!", "แจ้งให้ทราบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
            txt_Address.Focus()
            Exit Sub
        End If

        If MessageBox.Show("ต้องการแก้ไขข้อมูลทันตแพทย์  หรือไม่", "แจ้งให้ทราบ", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            SqlEdit = "UPDATE savedoctors SET"
            SqlEdit &= " id_doctor = '" & lbl_id.Text & "',"
            SqlEdit &= " type_doctor = '" & txt_Type.Text & "',"
            SqlEdit &= " name_doctor = '" & lbl_Name.Text & "',"
            SqlEdit &= " birth_doctor = '" & txt_birthday.Text & "',"
            SqlEdit &= " clinic_doctor = '" & lbl_Clinic.Text & "',"
            SqlEdit &= " address_doctor = '" & txt_Address.Text & "',"
            SqlEdit &= " tel_doctor = '" & txt_Tel.Text & "',"
            SqlEdit &= " tels_doctor = '" & txt_Tels.Text & "',"
            SqlEdit &= " telwork1_doctor = '" & txt_Telwork1.Text & "',"
            SqlEdit &= " telwork2_doctor = '" & txt_Telwork2.Text & "',"
            SqlEdit &= " fax_doctor = '" & txt_Fax.Text & "',"
            SqlEdit &= " email_doctor = '" & txt_Email.Text & "',"
            SqlEdit &= " working_doctor = '" & txt_Working.Text & "',"
            SqlEdit &= " labservice_doctor = '" & txt_Service.Text & "',"
            SqlEdit &= " marks_doctor = '" & txt_Marks.Text & "',"
            SqlEdit &= " Workplace_doctor = '" & txt_Plean.Text & "',"
            SqlEdit &= " Province_doctor = '" & cmb_Province.Text & "',"
            SqlEdit &= " website_doctor = '" & txt_Email.Text & "',"
            SqlEdit &= " Contact_Lab = '" & cmb_Contact.Text & "',"
            SqlEdit &= " Workplace_lab = '" & cmb_Workplean.Text & "',"
            SqlEdit &= " Check_doc = '" & lbl_Checkdoc.Text & "'"
            SqlEdit &= " WHERE id_doctor ='" & lbl_id.Text & "'"

            With Conn
                If .State = ConnectionState.Open Then .Close()
                .ConnectionString = strConn
                .Open()
            End With
            ComEdit.CommandType = CommandType.Text
            ComEdit.CommandText = SqlEdit
            ComEdit.Connection = Conn
            ComEdit.ExecuteNonQuery()
        End If
        MessageBox.Show("แก้ไขข้อมูลทันตแพทย์   เรียบร้อยแล้ว", "แจ้งให้ทราบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
        LoadFiledata()          ' Function Call เรียกใช้งาน Table Loadtable From Doctor
        showAllDoctor()       ' Function Call เรียกใช้งาน Table Doctor
        Formdisplay_Colum()     ' Function Call เรียกใช้งาน Display Field
        ClearTextF()
        cmd_SAVEEDIT.Enabled = False : cmd_CLEAR.Enabled = False
        txt_Searchdata.Enabled = True : txt_Searchdata.Text = ""
        txt_Searchdata.Focus()
        Return
    End Sub

    Private Sub cmd_CLEAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_CLEAR.Click
        ClearTextF()
        cmd_SAVEEDIT.Enabled = False : cmd_EXIT.Enabled = False
        cmd_CLEAR.Enabled = False : txt_Searchdata.Enabled = True
        cmd_EDIT.Enabled = False : cmd_DELECT.Enabled = False
        txt_Searchdata.Text = "" : txt_Searchdata.Focus()
    End Sub

    Private Sub cmd_DELECT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_DELECT.Click
        Dim SqlDelete As String
        Dim ComDelete As New OleDbCommand

        If (lbl_id.Text = "") Then
            Return
        End If

        If MessageBox.Show("ต้องการลบข้อมูลทันตแพทย์  หรือไม่", "แจ้งให้ทราบ", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then

            SqlDelete = "DELETE * FROM savedoctors"
            SqlDelete = "WHERE id_doctor = lbl_id.Text"
            ComDelete = New OleDbCommand(SqlDelete, Conn)
            With Conn
                If .State = ConnectionState.Open Then .Close()
                .ConnectionString = strConn
                .Open()
            End With

            SqlDelete = "DELETE * FROM savedoctors WHERE id_doctor = lbl_id.Text"
            ComDelete = New OleDbCommand(SqlDelete, Conn)
            ComDelete.Parameters.AddWithValue("lbl_id.Text", lbl_id.Text)
            ComDelete.ExecuteNonQuery()
        End If
        MessageBox.Show("ลบข้อมูลทันตแพทย์   เรียบร้อยแล้ว", "แจ้งให้ทราบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
        LoadFiledata()          ' Function Call เรียกใช้งาน Table Loadtable From Doctor
        showAllDoctor()       ' Function Call เรียกใช้งาน Table Doctor
        Formdisplay_Colum()     ' Function Call เรียกใช้งาน Display Field
        ClearTextF()
        cmd_EDIT.Enabled = False : cmd_DELECT.Enabled = False
        txt_Searchdata.Enabled = True : txt_Searchdata.Text = ""
        txt_Searchdata.Focus()
        Return
    End Sub

    Private Sub cmd_EXIT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_EXIT.Click
        Me.Close()
    End Sub
End Class

    Private Sub LoadFiledata()
        ' Code ติดต่อกับฐานข้อมูล Accress 2007
        ' strConn = "Provider=Microsoft.ACE.OLEDB.12.0; " & _
        '       "Data Source=..\\NEWMarketing.accdb;Persist Security Info=False"

        ' Code ติดต่อกับฐานข้อมูล Accress 2003
        'Dim conStr As String = _
        strConn = "provider=Microsoft.Jet.oleDb.4.0; Data Source=..\\NEWMarketing.mdb"

        Dim Conn As New OleDbConnection(strConn)
        Conn.Open()

        Dim Sql As String = "select * from savedoctors"
        Dim Cmd As New OleDbCommand(Sql, Conn)
        Dim Adapter As New OleDbDataAdapter(Cmd)

        Dim Data As New DataSet()
        Adapter.Fill(Data, "cat")

        Dim Data1 As New DataSet()
        DataGridView1.DataSource = Data.Tables("cat")
        Conn.Close()

        Dim sqlCategories As String
        sqlCategories = "SELECT * from savedoctors"
        da = New OleDbDataAdapter(sqlCategories, Conn)
        da.Fill(ds, "savedoctors")
        Return
    End Sub

Private Sub LoadFiledata()
    ' Code ติดต่อกับฐานข้อมูล Accress 2007
    ' strConn = "Provider=Microsoft.ACE.OLEDB.12.0; " & _
    '       "Data Source=..\\NEWMarketing.accdb;Persist Security Info=False"

    ' Code ติดต่อกับฐานข้อมูล Accress 2003
    'Dim conStr As String = _
    strConn = "provider=Microsoft.Jet.oleDb.4.0; Data Source=..\\NEWMarketing.mdb"

    Dim Conn As New OleDbConnection(strConn)
    Conn.Open()

    Dim Sql As String = "select * from savedoctors"
    Dim Cmd As New OleDbCommand(Sql, Conn)
    Dim Adapter As New OleDbDataAdapter(Cmd)

    Dim Data As New DataSet()
    Adapter.Fill(Data, "cat")

    Dim Data1 As New DataSet()
    DataGridView1.DataSource = Data.Tables("cat")
    Conn.Close()

    Dim sqlCategories As String
    sqlCategories = "SELECT * from savedoctors"
    da = New OleDbDataAdapter(sqlCategories, Conn)
    da.Fill(ds, "savedoctors")
    Return
End Sub

    Private Sub cmd_Searchdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_Searchdata.Click
        Dim sqlSearch As String
        Dim dr As OleDbDataReader
        Dim dt As DataTable
        ComSearch = New OleDbCommand()
        With Conn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = strConn
            .Open()

            sqlSearch = "Select * from savedoctors where clinic_doctor  like '%" & txt_Searchdata.Text.Trim() & "%' order by id_doctor asc"

            With ComSearch
                ComSearch.CommandType = CommandType.Text
                ComSearch.CommandText = sqlSearch
                ComSearch.Connection = Conn
                ComSearch.Parameters.AddWithValue("clinic_doctor", OleDbType.VarChar).Value = txt_Searchdata.Text.Trim()
                dr = .ExecuteReader()

                If dr.HasRows Then
                    dt = New DataTable()
                    dt.Load(dr)
                    DataGridView1.DataSource = dt
                    cmd_Searchdata.Enabled = False : cmd_EDIT.Enabled = False
                    cmd_EXIT.Enabled = False : txt_Searchdata.Enabled = False
                Else
                    MessageBox.Show("ไม่พบข้อมูล")
                    txt_Searchdata.Clear()
                    txt_Searchdata.Enabled = True
                    txt_Searchdata.Focus()
                End If
            End With
        End With
        dr.Close()
        Return
    End Sub