ต้องการตรวจสอบว่าเป็น select statement หรือไม่ ก่อนทำการดึงข้อมูล (WinForm)

Private Sub LoadQryReader()
        Try
            If objConn.State = ConnectionState.Closed Then
                ConDB()
            Else
            End If

            dtQryData.Clear()
            dtQryData.Columns.Clear()

            If pSQLStr = "" Then
                gvQueryData.DataSource = Nothing
                MessageBox.Show("No Query String.")
            Else
                Dim cmd As New MySqlCommand(pSQLStr, objConn)
                Dim myreader As MySqlDataReader = cmd.ExecuteReader()
                'While myreader.Read()
                '    dtQryData = myreader.GetSchemaTable
                'End While
                dtQryData.Load(myreader)
                gvQueryData.DataSource = dtQryData
            End If
        Catch ex As Exception
            Throw ex
        End Try
    End Sub