Public Class frmGhostMode
    Private Sub frmGhostMode_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim oSQL = "SELECT CONFIG_VALUE FROM TBIDB_BASE WHERE CONFIG_NAME = 'GHOST_SELECT'"
        oSQL = ClassDatabase.Execute_Scalar_ConStr(oSQL, CONNECTION_STRING_IDB)
        Dim DT_USER = ClassDatabase.Return_Datatable(oSQL)

        Try
            If Not IsNothing(DT_USER) Then
                GridControl1.DataSource = DT_USER

            End If


        Catch ex As Exception
            MsgBox("Error Load_Users:" & vbNewLine & ex.Message)
        End Try
    End Sub
End Class