Public Class frmPopGuest
    Private Sub frmPopGuest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            sql = "SELECT `GUESTID` AS 'ID', `G_FNAME` AS 'FIRSTNAME', `G_LNAME` AS 'LASTNAME', `G_ADDRESS` AS 'ADDRESS', `AGE`, `G_SEX` AS 'SEX', `G_PHONE` AS 'PHONE NO.' FROM `tblguest` "
            RETRIEVEDTG(dtgList, sql)
        Catch ex As Exception

        End Try
    End Sub

    Private Sub txtsearch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtsearch.TextChanged

        Try
            sql = "SELECT `GUESTID` AS 'ID', `G_FNAME` AS 'FIRSTNAME', `G_LNAME` AS 'LASTNAME', `G_ADDRESS` AS 'ADDRESS', `AGE`, `G_SEX` AS 'SEX', `G_PHONE` AS 'PHONE NO.' FROM `tblguest` WHERE CONCAT(`GUESTID`, ' ' , `G_FNAME`, ' ' ,`G_LNAME`,' ' , `G_ADDRESS` ) LIKE '%" & txtsearch.Text & "%'"
            RETRIEVEDTG(dtgList, sql)
        Catch ex As Exception

        End Try

    End Sub

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Me.Close()
    End Sub

    Private Sub btnSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelect.Click
        Try
            Form1.FrmBookingDetails1.txtGuestid.Text = dtgList.CurrentRow.Cells(0).Value
            Me.Close()
        Catch ex As Exception

        End Try
    End Sub
End Class